<?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=Andrea</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=Andrea"/>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/wiki/Especial:Contribuciones/Andrea"/>
		<updated>2026-04-29T17:16:47Z</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_21C&amp;diff=8013</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=8013"/>
				<updated>2013-12-12T22:35:22Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|marco|Placa Circular]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica su concentración en el origen, lo que hace que tome sus valores máximos en ρ=0. &lt;br /&gt;
La función esta expresada en polares y para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.&lt;br /&gt;
T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|marco|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calculamos el gradiente de T para observar su variación y representamos también sus curvas de nivel, observando que estas son perpendiculares a los vectores que representan el campo vectorial de ∇T.&lt;br /&gt;
&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|marco|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt; que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. &lt;br /&gt;
&lt;br /&gt;
Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|marco|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|marco|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Al calcular el rotacional del campo &amp;lt;math&amp;gt;|\nabla \times \vec u|&amp;lt;/math&amp;gt; observamos que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rotacional.jpg|marco|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
El campo vectorial de tensiones se reparte por la placa tal y como observamos en la siguiente figura, donde se muestra que ésta está concentrada en tres focos principales donde las tensiones son mayores.&lt;br /&gt;
[[Archivo:Det8.JPG|sinmarco|centro|Tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones]]&lt;br /&gt;
&lt;br /&gt;
====Módulo de Tensiones====&lt;br /&gt;
Los valores que adoptan las tensiones en cada punto se pueden observar representando su módulo en una gráfica. De esta forma vemos claramente los tres focos principales en 'rojo' mientras que en el borde de la placa, donde esta toma unos colores 'azulados' las tensiones son casi nulas.&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones ]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones visto en planta]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=7374</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=7374"/>
				<updated>2013-12-10T13:27:14Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|marco|Placa Circular]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica su concentración en el origen, lo que hace que tome sus valores máximos en ρ=0. &lt;br /&gt;
La función esta expresada en polares y para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.&lt;br /&gt;
T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|marco|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calculamos el gradiente de T para observar su variación y representamos también sus curvas de nivel, observando que estas son perpendiculares a los vectores que representan el campo vectorial de ∇T.&lt;br /&gt;
&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|marco|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt; que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. &lt;br /&gt;
&lt;br /&gt;
Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|marco|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|marco|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Al calcular el rotacional del campo &amp;lt;math&amp;gt;|\nabla \times \vec u|&amp;lt;/math&amp;gt; observamos que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rotacional.jpg|marco|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
El campo vectorial de tensiones se reparte por la placa tal y como observamos en la siguiente figura, donde se muestra que ésta está concentrada en tres focos principales donde las tensiones son mayores.&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones]]&lt;br /&gt;
&lt;br /&gt;
====Módulo de Tensiones====&lt;br /&gt;
Los valores que adoptan las tensiones en cada punto se pueden observar representando su módulo en una gráfica. De esta forma vemos claramente los tres focos principales en 'rojo' mientras que en el borde de la placa, donde esta toma unos colores 'azulados' las tensiones son casi nulas.&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones ]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones visto en planta]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=7372</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=7372"/>
				<updated>2013-12-10T13:26:14Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* =Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|marco|Placa Circular]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica su concentración en el origen, lo que hace que tome sus valores máximos en ρ=0. &lt;br /&gt;
La función esta expresada en polares y para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.&lt;br /&gt;
T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|marco|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calculamos el gradiente de T para observar su variación y representamos también sus curvas de nivel, observando que estas son perpendiculares a los vectores que representan el campo vectorial de ∇T.&lt;br /&gt;
&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|marco|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt; que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. &lt;br /&gt;
&lt;br /&gt;
Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|marco|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|marco|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Al calcular el rotacional del campo &amp;lt;math&amp;gt;|\nabla \times \vec u|&amp;lt;/math&amp;gt; observamos que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rotacional.jpg|marco|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
El campo vectorial de tensiones se reparte por la placa tal y como observamos en la siguiente figura, donde se muestra que ésta está concentrada en tres focos principales donde las tensiones son mayores.&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones]]&lt;br /&gt;
&lt;br /&gt;
====Módulo de Tensiones====&lt;br /&gt;
Los valores que adoptan las tensiones en cada punto se pueden observar representando su módulo en una gráfica. De esta forma vemos claramente los tres focos principales en 'rojo' mientras que en el borde de la placa, donde esta toma unos colores 'azulados' las tensiones son casi nulas.&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones ]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones visto en planta]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=7369</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=7369"/>
				<updated>2013-12-10T13:20:52Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Campo de vibraciones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|marco|Placa Circular]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica su concentración en el origen, lo que hace que tome sus valores máximos en ρ=0. &lt;br /&gt;
La función esta expresada en polares y para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.&lt;br /&gt;
T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|marco|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calculamos el gradiente de T para observar su variación y representamos también sus curvas de nivel, observando que estas son perpendiculares a los vectores que representan el campo vectorial de ∇T.&lt;br /&gt;
&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|marco|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt; que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. &lt;br /&gt;
&lt;br /&gt;
Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|marco|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|marco|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Al calcular el rotacional del campo &amp;lt;math&amp;gt;|\nabla \times \vec u|&amp;lt;/math&amp;gt; observamos que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rotacional.jpg|marco|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
==Tensiones=&lt;br /&gt;
En la primera imagen se observan las flechas del campo, donde podemos apreciar las diferentes intensidades de la tension (σ), la cual se reparte en tres focos principales. &lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones Figure(1)]]&lt;br /&gt;
Los mádulos de las tensiones nos permite observar los valores que éstas adoptan en cada punto del sólido, representando así la siguiente gráfica:&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones Figure(2)]]&lt;br /&gt;
En esta última gráfica tenemos una visión en planta de la misma y se puede volver a observar las variación en el módulo de las tensiones, con sus tres focos destacados en 'rojo'.&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones 2D Figure(3)]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=7368</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=7368"/>
				<updated>2013-12-10T13:18:27Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Variación de temperatura */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|marco|Placa Circular]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica su concentración en el origen, lo que hace que tome sus valores máximos en ρ=0. &lt;br /&gt;
La función esta expresada en polares y para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.&lt;br /&gt;
T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|marco|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calculamos el gradiente de T para observar su variación y representamos también sus curvas de nivel, observando que estas son perpendiculares a los vectores que representan el campo vectorial de ∇T.&lt;br /&gt;
&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|marco|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|marco|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|marco|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|marco|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones=&lt;br /&gt;
En la primera imagen se observan las flechas del campo, donde podemos apreciar las diferentes intensidades de la tension (σ), la cual se reparte en tres focos principales. &lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones Figure(1)]]&lt;br /&gt;
Los mádulos de las tensiones nos permite observar los valores que éstas adoptan en cada punto del sólido, representando así la siguiente gráfica:&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones Figure(2)]]&lt;br /&gt;
En esta última gráfica tenemos una visión en planta de la misma y se puede volver a observar las variación en el módulo de las tensiones, con sus tres focos destacados en 'rojo'.&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones 2D Figure(3)]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=7366</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=7366"/>
				<updated>2013-12-10T13:17:24Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Campo de Temperatura */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|marco|Placa Circular]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica su concentración en el origen, lo que hace que tome sus valores máximos en ρ=0. &lt;br /&gt;
La función esta expresada en polares y para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.&lt;br /&gt;
T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|marco|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calculamos el gradiente de T para observar su variación y representamos también sus curvas de nivel, observando que estas son perpendiculares a los vectores que representan el campo vectorial de ∇T.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|marco|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|marco|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|marco|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|marco|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones=&lt;br /&gt;
En la primera imagen se observan las flechas del campo, donde podemos apreciar las diferentes intensidades de la tension (σ), la cual se reparte en tres focos principales. &lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones Figure(1)]]&lt;br /&gt;
Los mádulos de las tensiones nos permite observar los valores que éstas adoptan en cada punto del sólido, representando así la siguiente gráfica:&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones Figure(2)]]&lt;br /&gt;
En esta última gráfica tenemos una visión en planta de la misma y se puede volver a observar las variación en el módulo de las tensiones, con sus tres focos destacados en 'rojo'.&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones 2D Figure(3)]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=7364</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=7364"/>
				<updated>2013-12-10T13:12:22Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Placa de estudio */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|marco|Placa Circular]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|marco|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|marco|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|marco|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|marco|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|marco|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones=&lt;br /&gt;
En la primera imagen se observan las flechas del campo, donde podemos apreciar las diferentes intensidades de la tension (σ), la cual se reparte en tres focos principales. &lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones Figure(1)]]&lt;br /&gt;
Los mádulos de las tensiones nos permite observar los valores que éstas adoptan en cada punto del sólido, representando así la siguiente gráfica:&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones Figure(2)]]&lt;br /&gt;
En esta última gráfica tenemos una visión en planta de la misma y se puede volver a observar las variación en el módulo de las tensiones, con sus tres focos destacados en 'rojo'.&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones 2D Figure(3)]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6540</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6540"/>
				<updated>2013-12-09T19:35:19Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Rotacional de \vec u */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|marco|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|marco|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|marco|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|marco|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|marco|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|marco|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones=&lt;br /&gt;
En la primera imagen se observan las flechas del campo, donde podemos apreciar las diferentes intensidades de la tension (σ), la cual se reparte en tres focos principales. &lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones Figure(1)]]&lt;br /&gt;
Los mádulos de las tensiones nos permite observar los valores que éstas adoptan en cada punto del sólido, representando así la siguiente gráfica:&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones Figure(2)]]&lt;br /&gt;
En esta última gráfica tenemos una visión en planta de la misma y se puede volver a observar las variación en el módulo de las tensiones, con sus tres focos destacados en 'rojo'.&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones 2D Figure(3)]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6538</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6538"/>
				<updated>2013-12-09T19:34:35Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Placa de estudio */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|marco|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|marco|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|marco|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|marco|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|marco|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|marco|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones=&lt;br /&gt;
En la primera imagen se observan las flechas del campo, donde podemos apreciar las diferentes intensidades de la tension (σ), la cual se reparte en tres focos principales. &lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones Figure(1)]]&lt;br /&gt;
Los mádulos de las tensiones nos permite observar los valores que éstas adoptan en cada punto del sólido, representando así la siguiente gráfica:&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones Figure(2)]]&lt;br /&gt;
En esta última gráfica tenemos una visión en planta de la misma y se puede volver a observar las variación en el módulo de las tensiones, con sus tres focos destacados en 'rojo'.&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones 2D Figure(3)]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6535</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6535"/>
				<updated>2013-12-09T19:34:18Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Campo de Temperatura */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|marco|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|marco|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|marco|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|marco|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|marco|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones=&lt;br /&gt;
En la primera imagen se observan las flechas del campo, donde podemos apreciar las diferentes intensidades de la tension (σ), la cual se reparte en tres focos principales. &lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones Figure(1)]]&lt;br /&gt;
Los mádulos de las tensiones nos permite observar los valores que éstas adoptan en cada punto del sólido, representando así la siguiente gráfica:&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones Figure(2)]]&lt;br /&gt;
En esta última gráfica tenemos una visión en planta de la misma y se puede volver a observar las variación en el módulo de las tensiones, con sus tres focos destacados en 'rojo'.&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones 2D Figure(3)]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6532</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6532"/>
				<updated>2013-12-09T19:33:47Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Variación de temperatura */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|marco|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|marco|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|marco|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|marco|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones=&lt;br /&gt;
En la primera imagen se observan las flechas del campo, donde podemos apreciar las diferentes intensidades de la tension (σ), la cual se reparte en tres focos principales. &lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones Figure(1)]]&lt;br /&gt;
Los mádulos de las tensiones nos permite observar los valores que éstas adoptan en cada punto del sólido, representando así la siguiente gráfica:&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones Figure(2)]]&lt;br /&gt;
En esta última gráfica tenemos una visión en planta de la misma y se puede volver a observar las variación en el módulo de las tensiones, con sus tres focos destacados en 'rojo'.&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones 2D Figure(3)]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6531</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6531"/>
				<updated>2013-12-09T19:33:24Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Campo de vibraciones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|marco|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|marco|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|marco|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones=&lt;br /&gt;
En la primera imagen se observan las flechas del campo, donde podemos apreciar las diferentes intensidades de la tension (σ), la cual se reparte en tres focos principales. &lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones Figure(1)]]&lt;br /&gt;
Los mádulos de las tensiones nos permite observar los valores que éstas adoptan en cada punto del sólido, representando así la siguiente gráfica:&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones Figure(2)]]&lt;br /&gt;
En esta última gráfica tenemos una visión en planta de la misma y se puede volver a observar las variación en el módulo de las tensiones, con sus tres focos destacados en 'rojo'.&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones 2D Figure(3)]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6530</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6530"/>
				<updated>2013-12-09T19:32:57Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* =Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|marco|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones=&lt;br /&gt;
En la primera imagen se observan las flechas del campo, donde podemos apreciar las diferentes intensidades de la tension (σ), la cual se reparte en tres focos principales. &lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones Figure(1)]]&lt;br /&gt;
Los mádulos de las tensiones nos permite observar los valores que éstas adoptan en cada punto del sólido, representando así la siguiente gráfica:&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones Figure(2)]]&lt;br /&gt;
En esta última gráfica tenemos una visión en planta de la misma y se puede volver a observar las variación en el módulo de las tensiones, con sus tres focos destacados en 'rojo'.&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones 2D Figure(3)]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6527</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6527"/>
				<updated>2013-12-09T19:32:26Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Rotacional de \vec u */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|marco|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones=&lt;br /&gt;
En la primera imagen se observan las flechas del campo, donde podemos apreciar las diferentes intensidades de la tension (σ), la cual se reparte en tres focos principales. &lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones Figure(1)]]&lt;br /&gt;
Los mádulos de las tensiones nos permite observar los valores que éstas adoptan en cada punto del sólido, representando así la siguiente gráfica:&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones Figure(2)]]&lt;br /&gt;
En esta última gráfica tenemos una visión en planta de la misma y se puede volver a observar las variación en el módulo de las tensiones, con sus tres focos destacados en 'rojo'.&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones 2D Figure(3)]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6523</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6523"/>
				<updated>2013-12-09T19:29:27Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones=&lt;br /&gt;
En la primera imagen se observan las flechas del campo, donde podemos apreciar las diferentes intensidades de la tension (σ), la cual se reparte en tres focos principales. &lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones Figure(1)]]&lt;br /&gt;
Los mádulos de las tensiones nos permite observar los valores que éstas adoptan en cada punto del sólido, representando así la siguiente gráfica:&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones Figure(2)]]&lt;br /&gt;
En esta última gráfica tenemos una visión en planta de la misma y se puede volver a observar las variación en el módulo de las tensiones, con sus tres focos destacados en 'rojo'.&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones 2D Figure(3)]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6458</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6458"/>
				<updated>2013-12-09T19:10:22Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones Figure(1)]]&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones Figure(2)]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro|Módulo de tensiones 2D Figure(3)]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6454</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6454"/>
				<updated>2013-12-09T19:09:15Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|marco|centro|Campo de tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|marco|centro|miniaturadeimagen|centro]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6453</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6453"/>
				<updated>2013-12-09T19:08:26Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|grandepx|marco|Campo de tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|marco|centro|Módulo de las tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|grandepx|miniaturadeimagen|centro]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6449</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6449"/>
				<updated>2013-12-09T19:07:17Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|grandepx|marco|Campo de tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|grandepx|miniaturadeimagen|centro|Módulo de las tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|grandepx|miniaturadeimagen|centro]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6446</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6446"/>
				<updated>2013-12-09T19:06:12Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|grandepx|marco]]&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|miniaturadeimagen|centro|Campo de tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|gigante|miniaturadeimagen|centro|Módulo de las tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|miniaturadeimagen|centro]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6440</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6440"/>
				<updated>2013-12-09T19:04:24Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|miniaturadeimagen|centro|Campo de tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|gigante|miniaturadeimagen|centro|Módulo de las tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|miniaturadeimagen|centro]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6438</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6438"/>
				<updated>2013-12-09T19:03:59Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|miniaturadeimagen|centro|Campo de tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|grande|miniaturadeimagen|centro|Módulo de las tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|miniaturadeimagen|centro]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6436</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6436"/>
				<updated>2013-12-09T19:03:17Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|miniaturadeimagen|centro|Campo de tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|miniaturadeimagen|centro|grande]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|miniaturadeimagen|centro]]&lt;br /&gt;
 &lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6425</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6425"/>
				<updated>2013-12-09T19:01:01Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Divergencia de \vec u */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|miniaturadeimagen|centro|Campo de tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|miniaturadeimagen|centro]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6423</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6423"/>
				<updated>2013-12-09T19:00:22Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Divergencia de \vec u */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{√g*}\frac{∂}{∂x^i}(√gu^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|miniaturadeimagen|centro|Campo de tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|miniaturadeimagen|centro]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6414</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6414"/>
				<updated>2013-12-09T18:55:36Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|miniaturadeimagen|centro|Campo de tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|miniaturadeimagen|centro]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6385</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6385"/>
				<updated>2013-12-09T18:44:32Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|miniaturadeimagen|centro|Campo de tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|miniaturadeimagen|centro]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6382</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6382"/>
				<updated>2013-12-09T18:44:07Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|miniaturadeimagen|centro|Campo de tensiones]]&lt;br /&gt;
[[Archivo:Ultimoapartado12.jpg|miniaturadeimagen]]&lt;br /&gt;
[[Archivo:Ultimoapartado11.jpg|miniaturadeimagen]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6379</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6379"/>
				<updated>2013-12-09T18:42:39Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Rotacional de \vec u */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|miniaturadeimagen|centro|Campo de tensiones]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6371</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6371"/>
				<updated>2013-12-09T18:40:52Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Tensiones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
&lt;br /&gt;
Tensiones&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|miniaturadeimagen|centro|Campo de tensiones]]&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6369</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6369"/>
				<updated>2013-12-09T18:39:38Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Rotacional de \vec u */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
&lt;br /&gt;
==Tensiones==&lt;br /&gt;
[[Archivo:Ultimoapartado13.jpg|miniaturadeimagen|centro|Campo de tensiones]]&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;/div&gt;</summary>
		<author><name>Andrea</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Ultimoapartado13.jpg&amp;diff=6359</id>
		<title>Archivo:Ultimoapartado13.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Ultimoapartado13.jpg&amp;diff=6359"/>
				<updated>2013-12-09T18:36:59Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Andrea</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Ultimoapartado12.jpg&amp;diff=6356</id>
		<title>Archivo:Ultimoapartado12.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Ultimoapartado12.jpg&amp;diff=6356"/>
				<updated>2013-12-09T18:36:16Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Andrea</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Ultimoapartado11.jpg&amp;diff=6354</id>
		<title>Archivo:Ultimoapartado11.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Ultimoapartado11.jpg&amp;diff=6354"/>
				<updated>2013-12-09T18:35:53Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6334</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6334"/>
				<updated>2013-12-09T18:29:01Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=6331</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=6331"/>
				<updated>2013-12-09T18:28:02Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:(2*pi+h);&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 ww= -(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(cos(vv))-(pi./(60*(uu))).*(cos((pi*vv)/2)).*(sin(vv));&lt;br /&gt;
 zz=-(1./(15*(uu.^2))).*(sin((pi*vv)/2)).*(sin(vv))+(pi./(60*(uu))).*(cos((pi*vv)/2)).*(cos(vv));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 figure(1)&lt;br /&gt;
 quiver(xx,yy,ww,zz)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
 M=sqrt(((1./(15*(uu.^2))).*(sin((pi*vv)/2))).^2+(((pi./(60*(uu))).*(cos((pi*vv)/2))).^2)./(uu.^2));&lt;br /&gt;
&lt;br /&gt;
 figure(2)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
&lt;br /&gt;
 figure(3)&lt;br /&gt;
 surf(xx,yy,M)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=5684</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=5684"/>
				<updated>2013-12-09T12:30:12Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Divergencia de \vec u */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
====Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Apartado 8 &lt;br /&gt;
h=0.1;&lt;br /&gt;
u=1:h:2;&lt;br /&gt;
v=0:h:2*pi+h;&lt;br /&gt;
%mallado de la gráfica&lt;br /&gt;
[uu,vv]=meshgrid(u,v);&lt;br /&gt;
figure(1)&lt;br /&gt;
xx=uu.*cos(vv);&lt;br /&gt;
yy=uu.*sin(vv);&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([-3,3,-3,3])&lt;br /&gt;
view(2)&lt;br /&gt;
o=vv;&lt;br /&gt;
r=uu;&lt;br /&gt;
aa=(-cos(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*sin(o)*cos((pi*o/2));&lt;br /&gt;
bb=(-sin(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*cos(o)*cos((pi*o/2));&lt;br /&gt;
quiver(xx,yy,aa,bb)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Det8.JPG|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
figure(12);&lt;br /&gt;
%Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
R=r(xx,yy);&lt;br /&gt;
surf(xx,yy,R);&lt;br /&gt;
axis([-3,3,-3,3]);&lt;br /&gt;
view(12);&lt;br /&gt;
&lt;br /&gt;
%% tensiones normales en la dirección de los ejes gro y gtheta/ro&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
 &lt;br /&gt;
sigmatheta = (1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
%% representación del mallado y de las tensiones en plano&lt;br /&gt;
figure(14)&lt;br /&gt;
subplot(2,2,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
view(14)&lt;br /&gt;
subplot(2,2,3);&lt;br /&gt;
mesh(xx,yy,sigmatheta); &lt;br /&gt;
view(14)&lt;br /&gt;
%% representación del mallado y de las tensiones en 3D&lt;br /&gt;
subplot(2,2,2);&lt;br /&gt;
mesh(xx,yy,sigmaro);&lt;br /&gt;
subplot(2,2,4);&lt;br /&gt;
mesh(xx,yy,sigmatheta);&lt;br /&gt;
&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2); 	%% tensión en dirección gro&lt;br /&gt;
subplot(1,3,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
subplot(1,3,2); 	%% tensión tangencial respecto al plano ortogonal a gro (3D)&lt;br /&gt;
tenstangencialplanoro=(((sin(pi.*vv))./40).*(uu.^(-1)+uu.^(-3)));&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro);&lt;br /&gt;
subplot(1,3,3); %% tensión tangencial respecto al plano ortogonal a gro (2D)&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro); colorbar&lt;br /&gt;
view(2);&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=5676</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=5676"/>
				<updated>2013-12-09T12:28:38Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Divergencia de \vec u */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero y además el cuerpo no sufre ningún cambio de volumen debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Apartado 8 &lt;br /&gt;
h=0.1;&lt;br /&gt;
u=1:h:2;&lt;br /&gt;
v=0:h:2*pi+h;&lt;br /&gt;
%mallado de la gráfica&lt;br /&gt;
[uu,vv]=meshgrid(u,v);&lt;br /&gt;
figure(1)&lt;br /&gt;
xx=uu.*cos(vv);&lt;br /&gt;
yy=uu.*sin(vv);&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([-3,3,-3,3])&lt;br /&gt;
view(2)&lt;br /&gt;
o=vv;&lt;br /&gt;
r=uu;&lt;br /&gt;
aa=(-cos(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*sin(o)*cos((pi*o/2));&lt;br /&gt;
bb=(-sin(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*cos(o)*cos((pi*o/2));&lt;br /&gt;
quiver(xx,yy,aa,bb)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Det8.JPG|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
figure(12);&lt;br /&gt;
%Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
R=r(xx,yy);&lt;br /&gt;
surf(xx,yy,R);&lt;br /&gt;
axis([-3,3,-3,3]);&lt;br /&gt;
view(12);&lt;br /&gt;
&lt;br /&gt;
%% tensiones normales en la dirección de los ejes gro y gtheta/ro&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
 &lt;br /&gt;
sigmatheta = (1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
%% representación del mallado y de las tensiones en plano&lt;br /&gt;
figure(14)&lt;br /&gt;
subplot(2,2,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
view(14)&lt;br /&gt;
subplot(2,2,3);&lt;br /&gt;
mesh(xx,yy,sigmatheta); &lt;br /&gt;
view(14)&lt;br /&gt;
%% representación del mallado y de las tensiones en 3D&lt;br /&gt;
subplot(2,2,2);&lt;br /&gt;
mesh(xx,yy,sigmaro);&lt;br /&gt;
subplot(2,2,4);&lt;br /&gt;
mesh(xx,yy,sigmatheta);&lt;br /&gt;
&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2); 	%% tensión en dirección gro&lt;br /&gt;
subplot(1,3,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
subplot(1,3,2); 	%% tensión tangencial respecto al plano ortogonal a gro (3D)&lt;br /&gt;
tenstangencialplanoro=(((sin(pi.*vv))./40).*(uu.^(-1)+uu.^(-3)));&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro);&lt;br /&gt;
subplot(1,3,3); %% tensión tangencial respecto al plano ortogonal a gro (2D)&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro); colorbar&lt;br /&gt;
view(2);&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=5669</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=5669"/>
				<updated>2013-12-09T12:25:19Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Campo de vibraciones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
====Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; ====&lt;br /&gt;
Calcular la &amp;lt;math&amp;gt;\nabla \cdot \vec u&amp;lt;/math&amp;gt; en todos los puntos del sólido y dibujarla. ¿Qué puntos tienen mayor divergencia? La divergencia es una medida del cambio de volumen local debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia da como resultado cero. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Apartado 8 &lt;br /&gt;
h=0.1;&lt;br /&gt;
u=1:h:2;&lt;br /&gt;
v=0:h:2*pi+h;&lt;br /&gt;
%mallado de la gráfica&lt;br /&gt;
[uu,vv]=meshgrid(u,v);&lt;br /&gt;
figure(1)&lt;br /&gt;
xx=uu.*cos(vv);&lt;br /&gt;
yy=uu.*sin(vv);&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([-3,3,-3,3])&lt;br /&gt;
view(2)&lt;br /&gt;
o=vv;&lt;br /&gt;
r=uu;&lt;br /&gt;
aa=(-cos(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*sin(o)*cos((pi*o/2));&lt;br /&gt;
bb=(-sin(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*cos(o)*cos((pi*o/2));&lt;br /&gt;
quiver(xx,yy,aa,bb)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Det8.JPG|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
figure(12);&lt;br /&gt;
%Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
R=r(xx,yy);&lt;br /&gt;
surf(xx,yy,R);&lt;br /&gt;
axis([-3,3,-3,3]);&lt;br /&gt;
view(12);&lt;br /&gt;
&lt;br /&gt;
%% tensiones normales en la dirección de los ejes gro y gtheta/ro&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
 &lt;br /&gt;
sigmatheta = (1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
%% representación del mallado y de las tensiones en plano&lt;br /&gt;
figure(14)&lt;br /&gt;
subplot(2,2,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
view(14)&lt;br /&gt;
subplot(2,2,3);&lt;br /&gt;
mesh(xx,yy,sigmatheta); &lt;br /&gt;
view(14)&lt;br /&gt;
%% representación del mallado y de las tensiones en 3D&lt;br /&gt;
subplot(2,2,2);&lt;br /&gt;
mesh(xx,yy,sigmaro);&lt;br /&gt;
subplot(2,2,4);&lt;br /&gt;
mesh(xx,yy,sigmatheta);&lt;br /&gt;
&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2); 	%% tensión en dirección gro&lt;br /&gt;
subplot(1,3,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
subplot(1,3,2); 	%% tensión tangencial respecto al plano ortogonal a gro (3D)&lt;br /&gt;
tenstangencialplanoro=(((sin(pi.*vv))./40).*(uu.^(-1)+uu.^(-3)));&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro);&lt;br /&gt;
subplot(1,3,3); %% tensión tangencial respecto al plano ortogonal a gro (2D)&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro); colorbar&lt;br /&gt;
view(2);&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=5657</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=5657"/>
				<updated>2013-12-09T12:22:22Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Campo de vibraciones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
Una vez este campo de fuerzas actúa sobre el sólido, éste sufre un desplazamiento tal y como observamos a continuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
El programa utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
Calcular la &amp;lt;math&amp;gt;\nabla \cdot \vec u&amp;lt;/math&amp;gt; en todos los puntos del sólido y dibujarla. ¿Qué puntos tienen mayor divergencia? La divergencia es una medida del cambio de volumen local debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia da como resultado cero. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Apartado 8 &lt;br /&gt;
h=0.1;&lt;br /&gt;
u=1:h:2;&lt;br /&gt;
v=0:h:2*pi+h;&lt;br /&gt;
%mallado de la gráfica&lt;br /&gt;
[uu,vv]=meshgrid(u,v);&lt;br /&gt;
figure(1)&lt;br /&gt;
xx=uu.*cos(vv);&lt;br /&gt;
yy=uu.*sin(vv);&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([-3,3,-3,3])&lt;br /&gt;
view(2)&lt;br /&gt;
o=vv;&lt;br /&gt;
r=uu;&lt;br /&gt;
aa=(-cos(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*sin(o)*cos((pi*o/2));&lt;br /&gt;
bb=(-sin(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*cos(o)*cos((pi*o/2));&lt;br /&gt;
quiver(xx,yy,aa,bb)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Det8.JPG|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
figure(12);&lt;br /&gt;
%Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
R=r(xx,yy);&lt;br /&gt;
surf(xx,yy,R);&lt;br /&gt;
axis([-3,3,-3,3]);&lt;br /&gt;
view(12);&lt;br /&gt;
&lt;br /&gt;
%% tensiones normales en la dirección de los ejes gro y gtheta/ro&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
 &lt;br /&gt;
sigmatheta = (1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
%% representación del mallado y de las tensiones en plano&lt;br /&gt;
figure(14)&lt;br /&gt;
subplot(2,2,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
view(14)&lt;br /&gt;
subplot(2,2,3);&lt;br /&gt;
mesh(xx,yy,sigmatheta); &lt;br /&gt;
view(14)&lt;br /&gt;
%% representación del mallado y de las tensiones en 3D&lt;br /&gt;
subplot(2,2,2);&lt;br /&gt;
mesh(xx,yy,sigmaro);&lt;br /&gt;
subplot(2,2,4);&lt;br /&gt;
mesh(xx,yy,sigmatheta);&lt;br /&gt;
&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2); 	%% tensión en dirección gro&lt;br /&gt;
subplot(1,3,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
subplot(1,3,2); 	%% tensión tangencial respecto al plano ortogonal a gro (3D)&lt;br /&gt;
tenstangencialplanoro=(((sin(pi.*vv))./40).*(uu.^(-1)+uu.^(-3)));&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro);&lt;br /&gt;
subplot(1,3,3); %% tensión tangencial respecto al plano ortogonal a gro (2D)&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro); colorbar&lt;br /&gt;
view(2);&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=5643</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=5643"/>
				<updated>2013-12-09T12:19:11Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Campo de vibraciones */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. que determina el desplazamiento que sufre cada punto del sólido cuando este actúa sobre la placa. Dibujamos a continuación el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
En ella vamos a suponer que tenemos definidas dos cantidades físicas: la temperatura T(ρ,θ,t), que depende de las dos coordenadas polares (ρ,θ) y el tiempo t, y los desplazamientos &amp;lt;math&amp;gt; \vec u (\rho,\theta,t) &amp;lt;/math&amp;gt;. De esta forma, si definimos r&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt;(ρ,θ) el vector de posición de los puntos de la placa en reposo, la posición de cada punto (ρ,θ) de la placa en un instante de tiempo t viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt; \vec r (\rho,\theta,t)= \vec r_{0}(\rho,\theta)+\vec u(\rho,\theta,t) &amp;lt;/math&amp;gt;.&lt;br /&gt;
Vamos a suponer que sobre la placa se ha aplicado una fuerza que ha provocado una vibración de manera que los desplazamientos en un tiempo t&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; dado vienen dados por &amp;lt;math&amp;gt;&lt;br /&gt;
\vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
El programa utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
Calcular la &amp;lt;math&amp;gt;\nabla \cdot \vec u&amp;lt;/math&amp;gt; en todos los puntos del sólido y dibujarla. ¿Qué puntos tienen mayor divergencia? La divergencia es una medida del cambio de volumen local debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia da como resultado cero. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Apartado 8 &lt;br /&gt;
h=0.1;&lt;br /&gt;
u=1:h:2;&lt;br /&gt;
v=0:h:2*pi+h;&lt;br /&gt;
%mallado de la gráfica&lt;br /&gt;
[uu,vv]=meshgrid(u,v);&lt;br /&gt;
figure(1)&lt;br /&gt;
xx=uu.*cos(vv);&lt;br /&gt;
yy=uu.*sin(vv);&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([-3,3,-3,3])&lt;br /&gt;
view(2)&lt;br /&gt;
o=vv;&lt;br /&gt;
r=uu;&lt;br /&gt;
aa=(-cos(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*sin(o)*cos((pi*o/2));&lt;br /&gt;
bb=(-sin(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*cos(o)*cos((pi*o/2));&lt;br /&gt;
quiver(xx,yy,aa,bb)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Det8.JPG|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
figure(12);&lt;br /&gt;
%Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
R=r(xx,yy);&lt;br /&gt;
surf(xx,yy,R);&lt;br /&gt;
axis([-3,3,-3,3]);&lt;br /&gt;
view(12);&lt;br /&gt;
&lt;br /&gt;
%% tensiones normales en la dirección de los ejes gro y gtheta/ro&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
 &lt;br /&gt;
sigmatheta = (1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
%% representación del mallado y de las tensiones en plano&lt;br /&gt;
figure(14)&lt;br /&gt;
subplot(2,2,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
view(14)&lt;br /&gt;
subplot(2,2,3);&lt;br /&gt;
mesh(xx,yy,sigmatheta); &lt;br /&gt;
view(14)&lt;br /&gt;
%% representación del mallado y de las tensiones en 3D&lt;br /&gt;
subplot(2,2,2);&lt;br /&gt;
mesh(xx,yy,sigmaro);&lt;br /&gt;
subplot(2,2,4);&lt;br /&gt;
mesh(xx,yy,sigmatheta);&lt;br /&gt;
&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2); 	%% tensión en dirección gro&lt;br /&gt;
subplot(1,3,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
subplot(1,3,2); 	%% tensión tangencial respecto al plano ortogonal a gro (3D)&lt;br /&gt;
tenstangencialplanoro=(((sin(pi.*vv))./40).*(uu.^(-1)+uu.^(-3)));&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro);&lt;br /&gt;
subplot(1,3,3); %% tensión tangencial respecto al plano ortogonal a gro (2D)&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro); colorbar&lt;br /&gt;
view(2);&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=5637</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=5637"/>
				<updated>2013-12-09T12:17:12Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Variación de temperatura */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
==Campo de vibraciones==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. Dibujar el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
En ella vamos a suponer que tenemos definidas dos cantidades físicas: la temperatura T(ρ,θ,t), que depende de las dos coordenadas polares (ρ,θ) y el tiempo t, y los desplazamientos &amp;lt;math&amp;gt; \vec u (\rho,\theta,t) &amp;lt;/math&amp;gt;. De esta forma, si definimos r&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt;(ρ,θ) el vector de posición de los puntos de la placa en reposo, la posición de cada punto (ρ,θ) de la placa en un instante de tiempo t viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt; \vec r (\rho,\theta,t)= \vec r_{0}(\rho,\theta)+\vec u(\rho,\theta,t) &amp;lt;/math&amp;gt;.&lt;br /&gt;
Vamos a suponer que sobre la placa se ha aplicado una fuerza que ha provocado una vibración de manera que los desplazamientos en un tiempo t&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; dado vienen dados por &amp;lt;math&amp;gt;&lt;br /&gt;
\vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
El programa utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
Calcular la &amp;lt;math&amp;gt;\nabla \cdot \vec u&amp;lt;/math&amp;gt; en todos los puntos del sólido y dibujarla. ¿Qué puntos tienen mayor divergencia? La divergencia es una medida del cambio de volumen local debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia da como resultado cero. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Apartado 8 &lt;br /&gt;
h=0.1;&lt;br /&gt;
u=1:h:2;&lt;br /&gt;
v=0:h:2*pi+h;&lt;br /&gt;
%mallado de la gráfica&lt;br /&gt;
[uu,vv]=meshgrid(u,v);&lt;br /&gt;
figure(1)&lt;br /&gt;
xx=uu.*cos(vv);&lt;br /&gt;
yy=uu.*sin(vv);&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([-3,3,-3,3])&lt;br /&gt;
view(2)&lt;br /&gt;
o=vv;&lt;br /&gt;
r=uu;&lt;br /&gt;
aa=(-cos(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*sin(o)*cos((pi*o/2));&lt;br /&gt;
bb=(-sin(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*cos(o)*cos((pi*o/2));&lt;br /&gt;
quiver(xx,yy,aa,bb)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Det8.JPG|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
figure(12);&lt;br /&gt;
%Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
R=r(xx,yy);&lt;br /&gt;
surf(xx,yy,R);&lt;br /&gt;
axis([-3,3,-3,3]);&lt;br /&gt;
view(12);&lt;br /&gt;
&lt;br /&gt;
%% tensiones normales en la dirección de los ejes gro y gtheta/ro&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
 &lt;br /&gt;
sigmatheta = (1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
%% representación del mallado y de las tensiones en plano&lt;br /&gt;
figure(14)&lt;br /&gt;
subplot(2,2,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
view(14)&lt;br /&gt;
subplot(2,2,3);&lt;br /&gt;
mesh(xx,yy,sigmatheta); &lt;br /&gt;
view(14)&lt;br /&gt;
%% representación del mallado y de las tensiones en 3D&lt;br /&gt;
subplot(2,2,2);&lt;br /&gt;
mesh(xx,yy,sigmaro);&lt;br /&gt;
subplot(2,2,4);&lt;br /&gt;
mesh(xx,yy,sigmatheta);&lt;br /&gt;
&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2); 	%% tensión en dirección gro&lt;br /&gt;
subplot(1,3,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
subplot(1,3,2); 	%% tensión tangencial respecto al plano ortogonal a gro (3D)&lt;br /&gt;
tenstangencialplanoro=(((sin(pi.*vv))./40).*(uu.^(-1)+uu.^(-3)));&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro);&lt;br /&gt;
subplot(1,3,3); %% tensión tangencial respecto al plano ortogonal a gro (2D)&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro); colorbar&lt;br /&gt;
view(2);&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=5633</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=5633"/>
				<updated>2013-12-09T12:16:11Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Introducción */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB.&lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. Dibujar el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
En ella vamos a suponer que tenemos definidas dos cantidades físicas: la temperatura T(ρ,θ,t), que depende de las dos coordenadas polares (ρ,θ) y el tiempo t, y los desplazamientos &amp;lt;math&amp;gt; \vec u (\rho,\theta,t) &amp;lt;/math&amp;gt;. De esta forma, si definimos r&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt;(ρ,θ) el vector de posición de los puntos de la placa en reposo, la posición de cada punto (ρ,θ) de la placa en un instante de tiempo t viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt; \vec r (\rho,\theta,t)= \vec r_{0}(\rho,\theta)+\vec u(\rho,\theta,t) &amp;lt;/math&amp;gt;.&lt;br /&gt;
Vamos a suponer que sobre la placa se ha aplicado una fuerza que ha provocado una vibración de manera que los desplazamientos en un tiempo t&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; dado vienen dados por &amp;lt;math&amp;gt;&lt;br /&gt;
\vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
El programa utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
Calcular la &amp;lt;math&amp;gt;\nabla \cdot \vec u&amp;lt;/math&amp;gt; en todos los puntos del sólido y dibujarla. ¿Qué puntos tienen mayor divergencia? La divergencia es una medida del cambio de volumen local debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia da como resultado cero. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Apartado 8 &lt;br /&gt;
h=0.1;&lt;br /&gt;
u=1:h:2;&lt;br /&gt;
v=0:h:2*pi+h;&lt;br /&gt;
%mallado de la gráfica&lt;br /&gt;
[uu,vv]=meshgrid(u,v);&lt;br /&gt;
figure(1)&lt;br /&gt;
xx=uu.*cos(vv);&lt;br /&gt;
yy=uu.*sin(vv);&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([-3,3,-3,3])&lt;br /&gt;
view(2)&lt;br /&gt;
o=vv;&lt;br /&gt;
r=uu;&lt;br /&gt;
aa=(-cos(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*sin(o)*cos((pi*o/2));&lt;br /&gt;
bb=(-sin(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*cos(o)*cos((pi*o/2));&lt;br /&gt;
quiver(xx,yy,aa,bb)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Det8.JPG|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
figure(12);&lt;br /&gt;
%Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
R=r(xx,yy);&lt;br /&gt;
surf(xx,yy,R);&lt;br /&gt;
axis([-3,3,-3,3]);&lt;br /&gt;
view(12);&lt;br /&gt;
&lt;br /&gt;
%% tensiones normales en la dirección de los ejes gro y gtheta/ro&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
 &lt;br /&gt;
sigmatheta = (1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
%% representación del mallado y de las tensiones en plano&lt;br /&gt;
figure(14)&lt;br /&gt;
subplot(2,2,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
view(14)&lt;br /&gt;
subplot(2,2,3);&lt;br /&gt;
mesh(xx,yy,sigmatheta); &lt;br /&gt;
view(14)&lt;br /&gt;
%% representación del mallado y de las tensiones en 3D&lt;br /&gt;
subplot(2,2,2);&lt;br /&gt;
mesh(xx,yy,sigmaro);&lt;br /&gt;
subplot(2,2,4);&lt;br /&gt;
mesh(xx,yy,sigmatheta);&lt;br /&gt;
&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2); 	%% tensión en dirección gro&lt;br /&gt;
subplot(1,3,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
subplot(1,3,2); 	%% tensión tangencial respecto al plano ortogonal a gro (3D)&lt;br /&gt;
tenstangencialplanoro=(((sin(pi.*vv))./40).*(uu.^(-1)+uu.^(-3)));&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro);&lt;br /&gt;
subplot(1,3,3); %% tensión tangencial respecto al plano ortogonal a gro (2D)&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro); colorbar&lt;br /&gt;
view(2);&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=5631</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=5631"/>
				<updated>2013-12-09T12:15:13Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Variación de temperatura */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB. &lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. Dibujar el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
En ella vamos a suponer que tenemos definidas dos cantidades físicas: la temperatura T(ρ,θ,t), que depende de las dos coordenadas polares (ρ,θ) y el tiempo t, y los desplazamientos &amp;lt;math&amp;gt; \vec u (\rho,\theta,t) &amp;lt;/math&amp;gt;. De esta forma, si definimos r&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt;(ρ,θ) el vector de posición de los puntos de la placa en reposo, la posición de cada punto (ρ,θ) de la placa en un instante de tiempo t viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt; \vec r (\rho,\theta,t)= \vec r_{0}(\rho,\theta)+\vec u(\rho,\theta,t) &amp;lt;/math&amp;gt;.&lt;br /&gt;
Vamos a suponer que sobre la placa se ha aplicado una fuerza que ha provocado una vibración de manera que los desplazamientos en un tiempo t&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; dado vienen dados por &amp;lt;math&amp;gt;&lt;br /&gt;
\vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
El programa utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
Calcular la &amp;lt;math&amp;gt;\nabla \cdot \vec u&amp;lt;/math&amp;gt; en todos los puntos del sólido y dibujarla. ¿Qué puntos tienen mayor divergencia? La divergencia es una medida del cambio de volumen local debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
&amp;lt;math&amp;gt;\nabla \cdot \vec u = \frac{1}{\frac{√g*∂}{∂x^i} }(√g*u^i)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia da como resultado cero. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Apartado 8 &lt;br /&gt;
h=0.1;&lt;br /&gt;
u=1:h:2;&lt;br /&gt;
v=0:h:2*pi+h;&lt;br /&gt;
%mallado de la gráfica&lt;br /&gt;
[uu,vv]=meshgrid(u,v);&lt;br /&gt;
figure(1)&lt;br /&gt;
xx=uu.*cos(vv);&lt;br /&gt;
yy=uu.*sin(vv);&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([-3,3,-3,3])&lt;br /&gt;
view(2)&lt;br /&gt;
o=vv;&lt;br /&gt;
r=uu;&lt;br /&gt;
aa=(-cos(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*sin(o)*cos((pi*o/2));&lt;br /&gt;
bb=(-sin(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*cos(o)*cos((pi*o/2));&lt;br /&gt;
quiver(xx,yy,aa,bb)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Det8.JPG|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
figure(12);&lt;br /&gt;
%Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
R=r(xx,yy);&lt;br /&gt;
surf(xx,yy,R);&lt;br /&gt;
axis([-3,3,-3,3]);&lt;br /&gt;
view(12);&lt;br /&gt;
&lt;br /&gt;
%% tensiones normales en la dirección de los ejes gro y gtheta/ro&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
 &lt;br /&gt;
sigmatheta = (1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
%% representación del mallado y de las tensiones en plano&lt;br /&gt;
figure(14)&lt;br /&gt;
subplot(2,2,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
view(14)&lt;br /&gt;
subplot(2,2,3);&lt;br /&gt;
mesh(xx,yy,sigmatheta); &lt;br /&gt;
view(14)&lt;br /&gt;
%% representación del mallado y de las tensiones en 3D&lt;br /&gt;
subplot(2,2,2);&lt;br /&gt;
mesh(xx,yy,sigmaro);&lt;br /&gt;
subplot(2,2,4);&lt;br /&gt;
mesh(xx,yy,sigmatheta);&lt;br /&gt;
&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2); 	%% tensión en dirección gro&lt;br /&gt;
subplot(1,3,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
subplot(1,3,2); 	%% tensión tangencial respecto al plano ortogonal a gro (3D)&lt;br /&gt;
tenstangencialplanoro=(((sin(pi.*vv))./40).*(uu.^(-1)+uu.^(-3)));&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro);&lt;br /&gt;
subplot(1,3,3); %% tensión tangencial respecto al plano ortogonal a gro (2D)&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro); colorbar&lt;br /&gt;
view(2);&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=5623</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=5623"/>
				<updated>2013-12-09T12:11:28Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Visualización de campos escalares y vectoriales en elasticidad. */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB. &lt;br /&gt;
&lt;br /&gt;
==Placa de estudio==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
==Campo de Temperatura==&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
====Variación de temperatura====&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. Dibujar el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
En ella vamos a suponer que tenemos definidas dos cantidades físicas: la temperatura T(ρ,θ,t), que depende de las dos coordenadas polares (ρ,θ) y el tiempo t, y los desplazamientos &amp;lt;math&amp;gt; \vec u (\rho,\theta,t) &amp;lt;/math&amp;gt;. De esta forma, si definimos r&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt;(ρ,θ) el vector de posición de los puntos de la placa en reposo, la posición de cada punto (ρ,θ) de la placa en un instante de tiempo t viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt; \vec r (\rho,\theta,t)= \vec r_{0}(\rho,\theta)+\vec u(\rho,\theta,t) &amp;lt;/math&amp;gt;.&lt;br /&gt;
Vamos a suponer que sobre la placa se ha aplicado una fuerza que ha provocado una vibración de manera que los desplazamientos en un tiempo t&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; dado vienen dados por &amp;lt;math&amp;gt;&lt;br /&gt;
\vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
El programa utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
Calcular la &amp;lt;math&amp;gt;\nabla \cdot \vec u&amp;lt;/math&amp;gt; en todos los puntos del sólido y dibujarla. ¿Qué puntos tienen mayor divergencia? La divergencia es una medida del cambio de volumen local debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
∇•u^→=1/√g*∂/(∂x^i )*(√g*u^i)&lt;br /&gt;
&lt;br /&gt;
La divergencia da como resultado cero. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Apartado 8 &lt;br /&gt;
h=0.1;&lt;br /&gt;
u=1:h:2;&lt;br /&gt;
v=0:h:2*pi+h;&lt;br /&gt;
%mallado de la gráfica&lt;br /&gt;
[uu,vv]=meshgrid(u,v);&lt;br /&gt;
figure(1)&lt;br /&gt;
xx=uu.*cos(vv);&lt;br /&gt;
yy=uu.*sin(vv);&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([-3,3,-3,3])&lt;br /&gt;
view(2)&lt;br /&gt;
o=vv;&lt;br /&gt;
r=uu;&lt;br /&gt;
aa=(-cos(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*sin(o)*cos((pi*o/2));&lt;br /&gt;
bb=(-sin(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*cos(o)*cos((pi*o/2));&lt;br /&gt;
quiver(xx,yy,aa,bb)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Det8.JPG|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
figure(12);&lt;br /&gt;
%Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
R=r(xx,yy);&lt;br /&gt;
surf(xx,yy,R);&lt;br /&gt;
axis([-3,3,-3,3]);&lt;br /&gt;
view(12);&lt;br /&gt;
&lt;br /&gt;
%% tensiones normales en la dirección de los ejes gro y gtheta/ro&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
 &lt;br /&gt;
sigmatheta = (1/(15.*uu.^2))*sin((pi.*vv)/2);&lt;br /&gt;
%% representación del mallado y de las tensiones en plano&lt;br /&gt;
figure(14)&lt;br /&gt;
subplot(2,2,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
view(14)&lt;br /&gt;
subplot(2,2,3);&lt;br /&gt;
mesh(xx,yy,sigmatheta); &lt;br /&gt;
view(14)&lt;br /&gt;
%% representación del mallado y de las tensiones en 3D&lt;br /&gt;
subplot(2,2,2);&lt;br /&gt;
mesh(xx,yy,sigmaro);&lt;br /&gt;
subplot(2,2,4);&lt;br /&gt;
mesh(xx,yy,sigmatheta);&lt;br /&gt;
&lt;br /&gt;
sigmaro = (-1/(15.*uu.^2))*sin((pi.*vv)/2); 	%% tensión en dirección gro&lt;br /&gt;
subplot(1,3,1);&lt;br /&gt;
mesh(xx,yy,sigmaro); &lt;br /&gt;
subplot(1,3,2); 	%% tensión tangencial respecto al plano ortogonal a gro (3D)&lt;br /&gt;
tenstangencialplanoro=(((sin(pi.*vv))./40).*(uu.^(-1)+uu.^(-3)));&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro);&lt;br /&gt;
subplot(1,3,3); %% tensión tangencial respecto al plano ortogonal a gro (2D)&lt;br /&gt;
mesh(xx,yy,tenstangencialplanoro); colorbar&lt;br /&gt;
view(2);&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=5600</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=5600"/>
				<updated>2013-12-09T12:05:27Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Visualización de campos escalares y vectoriales en elasticidad. */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Introducción==&lt;br /&gt;
Este estudio consistirá en analizar el comportamiento de una placa circular frente a la acción de los diferentes campos que actúan sobre ella. Para ello los analizaremos y estudiaremos  observando su variación mediante la representación gráfica de estos con la ayuda del programa informático MatLAB. &lt;br /&gt;
&lt;br /&gt;
==Visualización de campos escalares y vectoriales en elasticidad.==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. Dibujar el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
En ella vamos a suponer que tenemos definidas dos cantidades físicas: la temperatura T(ρ,θ,t), que depende de las dos coordenadas polares (ρ,θ) y el tiempo t, y los desplazamientos &amp;lt;math&amp;gt; \vec u (\rho,\theta,t) &amp;lt;/math&amp;gt;. De esta forma, si definimos r&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt;(ρ,θ) el vector de posición de los puntos de la placa en reposo, la posición de cada punto (ρ,θ) de la placa en un instante de tiempo t viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt; \vec r (\rho,\theta,t)= \vec r_{0}(\rho,\theta)+\vec u(\rho,\theta,t) &amp;lt;/math&amp;gt;.&lt;br /&gt;
Vamos a suponer que sobre la placa se ha aplicado una fuerza que ha provocado una vibración de manera que los desplazamientos en un tiempo t&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; dado vienen dados por &amp;lt;math&amp;gt;&lt;br /&gt;
\vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
El programa utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
Calcular la &amp;lt;math&amp;gt;\nabla \cdot \vec u&amp;lt;/math&amp;gt; en todos los puntos del sólido y dibujarla. ¿Qué puntos tienen mayor divergencia? La divergencia es una medida del cambio de volumen local debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
∇•u^→=1/√g*∂/(∂x^i )*(√g*u^i)&lt;br /&gt;
&lt;br /&gt;
La divergencia da como resultado cero. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Apartado 8 &lt;br /&gt;
h=0.1;&lt;br /&gt;
u=1:h:2;&lt;br /&gt;
v=0:h:2*pi+h;&lt;br /&gt;
%mallado de la gráfica&lt;br /&gt;
[uu,vv]=meshgrid(u,v);&lt;br /&gt;
figure(1)&lt;br /&gt;
xx=uu.*cos(vv);&lt;br /&gt;
yy=uu.*sin(vv);&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([-3,3,-3,3])&lt;br /&gt;
view(2)&lt;br /&gt;
o=vv;&lt;br /&gt;
r=uu;&lt;br /&gt;
aa=(-cos(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*sin(o)*cos((pi*o/2));&lt;br /&gt;
bb=(-sin(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*cos(o)*cos((pi*o/2));&lt;br /&gt;
quiver(xx,yy,aa,bb)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Det8.JPG|sinmarco|centro]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=5543</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=5543"/>
				<updated>2013-12-09T11:44:41Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Visualización de campos escalares y vectoriales en elasticidad. */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Visualización de campos escalares y vectoriales en elasticidad.==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. Dibujar el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
En ella vamos a suponer que tenemos definidas dos cantidades físicas: la temperatura T(ρ,θ,t), que depende de las dos coordenadas polares (ρ,θ) y el tiempo t, y los desplazamientos &amp;lt;math&amp;gt; \vec u (\rho,\theta,t) &amp;lt;/math&amp;gt;. De esta forma, si definimos r&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt;(ρ,θ) el vector de posición de los puntos de la placa en reposo, la posición de cada punto (ρ,θ) de la placa en un instante de tiempo t viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt; \vec r (\rho,\theta,t)= \vec r_{0}(\rho,\theta)+\vec u(\rho,\theta,t) &amp;lt;/math&amp;gt;.&lt;br /&gt;
Vamos a suponer que sobre la placa se ha aplicado una fuerza que ha provocado una vibración de manera que los desplazamientos en un tiempo t&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; dado vienen dados por &amp;lt;math&amp;gt;&lt;br /&gt;
\vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
El programa utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
Calcular la &amp;lt;math&amp;gt;\nabla \cdot \vec u&amp;lt;/math&amp;gt; en todos los puntos del sólido y dibujarla. ¿Qué puntos tienen mayor divergencia? La divergencia es una medida del cambio de volumen local debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
∇•u^→=1/√g*∂/(∂x^i )*(√g*u^i)&lt;br /&gt;
&lt;br /&gt;
La divergencia da como resultado cero. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Apartado 8 &lt;br /&gt;
h=0.1;&lt;br /&gt;
u=1:h:2;&lt;br /&gt;
v=0:h:2*pi+h;&lt;br /&gt;
%mallado de la gráfica&lt;br /&gt;
[uu,vv]=meshgrid(u,v);&lt;br /&gt;
figure(1)&lt;br /&gt;
xx=uu.*cos(vv);&lt;br /&gt;
yy=uu.*sin(vv);&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([-3,3,-3,3])&lt;br /&gt;
view(2)&lt;br /&gt;
o=vv;&lt;br /&gt;
r=uu;&lt;br /&gt;
aa=(-cos(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*sin(o)*cos((pi*o/2));&lt;br /&gt;
bb=(-sin(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*cos(o)*cos((pi*o/2));&lt;br /&gt;
quiver(xx,yy,aa,bb)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Det8.JPG|sinmarco|centro]]&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=5530</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=5530"/>
				<updated>2013-12-09T11:42:11Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Visualización de campos escalares y vectoriales en elasticidad. */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Visualización de campos escalares y vectoriales en elasticidad.==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. Dibujar el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
En ella vamos a suponer que tenemos definidas dos cantidades físicas: la temperatura T(ρ,θ,t), que depende de las dos coordenadas polares (ρ,θ) y el tiempo t, y los desplazamientos &amp;lt;math&amp;gt; \vec u (\rho,\theta,t) &amp;lt;/math&amp;gt;. De esta forma, si definimos r&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt;(ρ,θ) el vector de posición de los puntos de la placa en reposo, la posición de cada punto (ρ,θ) de la placa en un instante de tiempo t viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt; \vec r (\rho,\theta,t)= \vec r_{0}(\rho,\theta)+\vec u(\rho,\theta,t) &amp;lt;/math&amp;gt;.&lt;br /&gt;
Vamos a suponer que sobre la placa se ha aplicado una fuerza que ha provocado una vibración de manera que los desplazamientos en un tiempo t&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; dado vienen dados por &amp;lt;math&amp;gt;&lt;br /&gt;
\vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
El programa utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
Calcular la &amp;lt;math&amp;gt;\nabla \cdot \vec u&amp;lt;/math&amp;gt; en todos los puntos del sólido y dibujarla. ¿Qué puntos tienen mayor divergencia? La divergencia es una medida del cambio de volumen local debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
∇•u^→=1/√g*∂/(∂x^i )*(√g*u^i)&lt;br /&gt;
&lt;br /&gt;
La divergencia da como resultado cero. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Apartado 8 &lt;br /&gt;
h=0.1;&lt;br /&gt;
u=1:h:2;&lt;br /&gt;
v=0:h:2*pi+h;&lt;br /&gt;
%mallado de la gráfica&lt;br /&gt;
[uu,vv]=meshgrid(u,v);&lt;br /&gt;
figure(1)&lt;br /&gt;
xx=uu.*cos(vv);&lt;br /&gt;
yy=uu.*sin(vv);&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([-3,3,-3,3])&lt;br /&gt;
view(2)&lt;br /&gt;
o=vv;&lt;br /&gt;
r=uu;&lt;br /&gt;
aa=(-cos(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*sin(o)*cos((pi*o/2));&lt;br /&gt;
bb=(-sin(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*cos(o)*cos((pi*o/2));&lt;br /&gt;
quiver(xx,yy,aa,bb)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Det8.JPG|sinmarco|centro]]&lt;br /&gt;
\sigma{ij}=\begin{bmatrix} \frac{\-sin(\frac{pi*theta}{2}){15*rho^2}&amp;amp; \frac{\pi*cos(\frac{pi*theta}{2}){60*rho}&amp;amp; 0 \\ \frac{\pi*cos(\frac{pi*theta}{2}){60*rho}&amp;amp; \frac{\-sin(\frac{pi*theta}{2}){15*rho^2} &amp;amp; 0 \\ 0 &amp;amp; 0 &amp;amp; 0 \end{bmatrix}\\&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=5527</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=5527"/>
				<updated>2013-12-09T11:41:11Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Visualización de campos escalares y vectoriales en elasticidad. */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Visualización de campos escalares y vectoriales en elasticidad.==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. Dibujar el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
En ella vamos a suponer que tenemos definidas dos cantidades físicas: la temperatura T(ρ,θ,t), que depende de las dos coordenadas polares (ρ,θ) y el tiempo t, y los desplazamientos &amp;lt;math&amp;gt; \vec u (\rho,\theta,t) &amp;lt;/math&amp;gt;. De esta forma, si definimos r&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt;(ρ,θ) el vector de posición de los puntos de la placa en reposo, la posición de cada punto (ρ,θ) de la placa en un instante de tiempo t viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt; \vec r (\rho,\theta,t)= \vec r_{0}(\rho,\theta)+\vec u(\rho,\theta,t) &amp;lt;/math&amp;gt;.&lt;br /&gt;
Vamos a suponer que sobre la placa se ha aplicado una fuerza que ha provocado una vibración de manera que los desplazamientos en un tiempo t&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; dado vienen dados por &amp;lt;math&amp;gt;&lt;br /&gt;
\vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
El programa utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
Calcular la &amp;lt;math&amp;gt;\nabla \cdot \vec u&amp;lt;/math&amp;gt; en todos los puntos del sólido y dibujarla. ¿Qué puntos tienen mayor divergencia? La divergencia es una medida del cambio de volumen local debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
∇•u^→=1/√g*∂/(∂x^i )*(√g*u^i)&lt;br /&gt;
&lt;br /&gt;
La divergencia da como resultado cero. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Apartado 8 &lt;br /&gt;
h=0.1;&lt;br /&gt;
u=1:h:2;&lt;br /&gt;
v=0:h:2*pi+h;&lt;br /&gt;
%mallado de la gráfica&lt;br /&gt;
[uu,vv]=meshgrid(u,v);&lt;br /&gt;
figure(1)&lt;br /&gt;
xx=uu.*cos(vv);&lt;br /&gt;
yy=uu.*sin(vv);&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([-3,3,-3,3])&lt;br /&gt;
view(2)&lt;br /&gt;
o=vv;&lt;br /&gt;
r=uu;&lt;br /&gt;
aa=(-cos(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*sin(o)*cos((pi*o/2));&lt;br /&gt;
bb=(-sin(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*cos(o)*cos((pi*o/2));&lt;br /&gt;
quiver(xx,yy,aa,bb)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Det8.JPG|centrado|miniaturadeimagen]]&lt;br /&gt;
\sigma{ij}=\begin{bmatrix} \frac{\-sin(\frac{pi*theta}{2}){15*rho^2}&amp;amp; \frac{\pi*cos(\frac{pi*theta}{2}){60*rho}&amp;amp; 0 \\ \frac{\pi*cos(\frac{pi*theta}{2}){60*rho}&amp;amp; \frac{\-sin(\frac{pi*theta}{2}){15*rho^2} &amp;amp; 0 \\ 0 &amp;amp; 0 &amp;amp; 0 \end{bmatrix}\\&lt;/div&gt;</summary>
		<author><name>Andrea</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_21C&amp;diff=5525</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad Grupo 21C</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_21C&amp;diff=5525"/>
				<updated>2013-12-09T11:40:47Z</updated>
		
		<summary type="html">&lt;p&gt;Andrea: /* Visualización de campos escalares y vectoriales en elasticidad. */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{beta}}&lt;br /&gt;
&lt;br /&gt;
==Visualización de campos escalares y vectoriales en elasticidad.==&lt;br /&gt;
&lt;br /&gt;
Consideramos una placa plana (en dimensión 2) que ocupa el anillo comprendido entre las circunferencias centradas en el origen de radios 2 y 1. &lt;br /&gt;
Dibujamos un mallado que representa los puntos interiores del sólido tomando como paso de muestreo h=1/10 para las variables x e y. &lt;br /&gt;
[[Archivo:Placa 2D.jpeg|centrado|miniaturadeimagen|Placa]]&lt;br /&gt;
&lt;br /&gt;
 h=0.1;&lt;br /&gt;
 u=1:h:2;&lt;br /&gt;
 v=0:h:2*pi+h;&lt;br /&gt;
 %mallado de la gráfica&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1)&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
En ella tenemos definida la temperatura, que proviene de un foco de calor muy concentrado en el origen y viene dada en función de ρ y θ como T(ρ,θ)=−log(ρ+0.1).&lt;br /&gt;
Observamos en la gráfica que al estar concentrada en el foco alcanza sus valores maximo para ρ=0. La función esta expresada en polares. Para trabajar en Matlab hay que pasarlo a coordenadas cartesianas.T(x,y)=-log⁡(√(x^2+y^2 )+0.1)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Temperatura.jpg|miniaturadeimagen|centrado|Gráfica de la Temperatura]]&lt;br /&gt;
&lt;br /&gt;
 %Relación polares-cartesianas&lt;br /&gt;
 r=sqrt(xx.^2+yy.^2);&lt;br /&gt;
 tt=atan(yy./xx);&lt;br /&gt;
 %Campo escalar T&lt;br /&gt;
 figure(2)&lt;br /&gt;
 T=-log(0.1+r);&lt;br /&gt;
 surf(xx,yy,T)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
&lt;br /&gt;
Calcular ∇T y dibujarlo como campo vectorial. Calcular las curvas de nivel de T y observar gráficamente que ∇T es ortogonal a dichas curvas.&lt;br /&gt;
La función T está expresada en polares.&lt;br /&gt;
Las curvas de nivel, junto con el gradiente, quedarían:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gyc.jpg|miniaturadeimagen|centrado|Gradiente y Curvas de Nivel]]&lt;br /&gt;
&lt;br /&gt;
 Tx=-1./(r.*(0.1+r)).*xx;&lt;br /&gt;
 % derivada parcial en x&lt;br /&gt;
 Ty=-1./(r.*(0.1+r)).*yy;&lt;br /&gt;
 % derivada parcial en y&lt;br /&gt;
 subplot(1,2,1),quiver(xx,yy,Tx,Ty)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 % Región del gráfico&lt;br /&gt;
 subplot(1,2,2),contour(xx,yy,T,10)&lt;br /&gt;
 %dibujo curvas de nivel&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2)&lt;br /&gt;
 % representación campo vectorial u&lt;br /&gt;
 figure(4)&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 ux=sin(pi.*tt./2)./(30.*r).*(xx./r);&lt;br /&gt;
 % componente y de u&lt;br /&gt;
 uy=sin(pi.*tt./2)./(30.*r).*(yy./r);&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el campo de vectores &amp;lt;math&amp;gt; \vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;. Dibujar el campo de vectores en los puntos del mallado del sólido. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campovectorial.jpg|miniaturadeimagen|centro|Campo Vectorial]]&lt;br /&gt;
&lt;br /&gt;
 figure(9)&lt;br /&gt;
 m=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*xx','xx','yy');&lt;br /&gt;
 n=inline('((sin((pi*atan(yy./xx)/2)))./(30*(xx.^2+yy.^2))).*yy','xx','yy');&lt;br /&gt;
 M=m(xx,yy);&lt;br /&gt;
 N=n(xx,yy);&lt;br /&gt;
 quiver(xx,yy,M,N);&lt;br /&gt;
 view(9);&lt;br /&gt;
&lt;br /&gt;
En ella vamos a suponer que tenemos definidas dos cantidades físicas: la temperatura T(ρ,θ,t), que depende de las dos coordenadas polares (ρ,θ) y el tiempo t, y los desplazamientos &amp;lt;math&amp;gt; \vec u (\rho,\theta,t) &amp;lt;/math&amp;gt;. De esta forma, si definimos r&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt;(ρ,θ) el vector de posición de los puntos de la placa en reposo, la posición de cada punto (ρ,θ) de la placa en un instante de tiempo t viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt; \vec r (\rho,\theta,t)= \vec r_{0}(\rho,\theta)+\vec u(\rho,\theta,t) &amp;lt;/math&amp;gt;.&lt;br /&gt;
Vamos a suponer que sobre la placa se ha aplicado una fuerza que ha provocado una vibración de manera que los desplazamientos en un tiempo t&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; dado vienen dados por &amp;lt;math&amp;gt;&lt;br /&gt;
\vec u(\rho,\theta)=\frac{\sin(\pi \theta/2)}{30\rho}\vec g_{\rho}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Cincoo.jpg|miniaturadeimagen|centro|Desplazamiento de la malla]]&lt;br /&gt;
&lt;br /&gt;
El programa utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 u=1:0.1:2;&lt;br /&gt;
 v=0:0.1:2*pi+0.1;&lt;br /&gt;
 [uu,vv]=meshgrid(u,v);&lt;br /&gt;
 figure(1) &lt;br /&gt;
 subplot(1,2,1);&lt;br /&gt;
 xx=uu.*cos(vv);&lt;br /&gt;
 yy=uu.*sin(vv);&lt;br /&gt;
 mesh(xx,yy,0*xx)&lt;br /&gt;
 axis([-3,3,-3,3])&lt;br /&gt;
 view(2) &lt;br /&gt;
 subplot(1,2,2);&lt;br /&gt;
 ux=((sin(pi*vv/2))./(30*uu)).*cos(vv);&lt;br /&gt;
 uy=((sin(pi*vv/2))./(30*uu)).*sin(vv);&lt;br /&gt;
 mesh(xx+ux,yy+uy,0*xx);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
&lt;br /&gt;
Calcular la &amp;lt;math&amp;gt;\nabla \cdot \vec u&amp;lt;/math&amp;gt; en todos los puntos del sólido y dibujarla. ¿Qué puntos tienen mayor divergencia? La divergencia es una medida del cambio de volumen local debido al desplazamiento.&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia vamos a usar las coordenadas polares a través de la expresión:&lt;br /&gt;
∇•u^→=1/√g*∂/(∂x^i )*(√g*u^i)&lt;br /&gt;
&lt;br /&gt;
La divergencia da como resultado cero. Por tanto podemos decir que el campo no es ni una fuente ni un sumidero.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|\nabla \times \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:Rotacional.jpg|miniaturadeimagen|centro|Rotacional del Campo u]]&lt;br /&gt;
&lt;br /&gt;
El programa de Matlab utilizado ha sido:&lt;br /&gt;
&lt;br /&gt;
 figure(12);&lt;br /&gt;
 %Función que resulta al multiplicar vectorialmente el operador Nabla y el campo u&lt;br /&gt;
 r=inline('(pi*(cos(pi/2*atan(y./x))))./(60*sqrt(x.^2+y.^2))','x','y');&lt;br /&gt;
 R=r(xx,yy);&lt;br /&gt;
 surf(xx,yy,R);&lt;br /&gt;
 axis([-3,3,-3,3]);&lt;br /&gt;
 view(12);&lt;br /&gt;
&lt;br /&gt;
En la imagen se observa que los puntos con mayor rotacional son aquellos en los que la malla ha sufrido el desplazamiento.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Apartado 8 &lt;br /&gt;
h=0.1;&lt;br /&gt;
u=1:h:2;&lt;br /&gt;
v=0:h:2*pi+h;&lt;br /&gt;
%mallado de la gráfica&lt;br /&gt;
[uu,vv]=meshgrid(u,v);&lt;br /&gt;
figure(1)&lt;br /&gt;
xx=uu.*cos(vv);&lt;br /&gt;
yy=uu.*sin(vv);&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([-3,3,-3,3])&lt;br /&gt;
view(2)&lt;br /&gt;
o=vv;&lt;br /&gt;
r=uu;&lt;br /&gt;
aa=(-cos(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*sin(o)*cos((pi*o/2));&lt;br /&gt;
bb=(-sin(o)/15*r^2)*sin((pi*o/2))-(pi/6*r)*cos(o)*cos((pi*o/2));&lt;br /&gt;
quiver(xx,yy,aa,bb)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Det8.JPG|miniaturadeimagen]]&lt;br /&gt;
\sigma{ij}=\begin{bmatrix} \frac{\-sin(\frac{pi*theta}{2}){15*rho^2}&amp;amp; \frac{\pi*cos(\frac{pi*theta}{2}){60*rho}&amp;amp; 0 \\ \frac{\pi*cos(\frac{pi*theta}{2}){60*rho}&amp;amp; \frac{\-sin(\frac{pi*theta}{2}){15*rho^2} &amp;amp; 0 \\ 0 &amp;amp; 0 &amp;amp; 0 \end{bmatrix}\\&lt;/div&gt;</summary>
		<author><name>Andrea</name></author>	</entry>

	</feed>