Estado Magnético en términos de los Espines

Descargar como Notebook

Colaboración con la Física Claudia Milena Bedoya.

Otra de las múltiples aplicaciones que permite Wolfram Mathematica es la visualización del estado magnético de materiales a escala reducida. La gráfica muestra el estado magnético en términos de los espines (propiedad física asociada al movimiento de un electrón sobre su propio eje) en un sistema core/shell, compuesto por un núcleo y una envoltura ambos magnéticos.
Estos sistemas presentan potenciales aplicaciones en el campo de almacenamiento de información.

Tenemos una base de 400 datos Dat.xls (descargar), donde cada entrada tiene cuatro componentes: las dos primeras nos indican la posición en el plano, la tercera la orientación 1-arriba y -1-abajo y la cuarta componente core/shell con los colores verde y rojo respectivamente.

Primero cargamos la base de datos:

datos = Flatten[Import["por Insertar->Ruta de Archivo (buscar el archivo Dat.xls donde lo descargó)"], 1];

Ahora realizamos la representación gráfica :

Graphics[Table[{If[datos[[n, 4]] == "c", Red, Green], 
   Arrowheads[0.03], 
   Arrow[{datos[[n, {1, 2}]], 
     datos[[n, {1, 2}]] + {0, datos[[n, 3]]}}]}, {n, 1, 400}], 
 Axes -> True]

Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas