Importar datos de txt a Mathematica

Question

Tenga en cuenta la siguiente lista en Mathematica:

a = { 
    { 
    {0, 0, 0}, {1, 0, 0}, {1, 1, 0} 
    }, 
    { 
    {0, 0, 1}, {1, 0, 1}, {1, 1, 1} 
    } 
    }; 

Ahora, invocar:

Export["test.dat", a] 

y luego

b = Import["test.dat"] 

verá que al final a no es igual a b. ¿Debería considerar esto como una característica o un error?

Por otra parte, me gustaría importar una lista que tiene el siguiente formato: {P1,P2,P3...,Pn} donde Pi={v1,v2,v3,...,vm} y cada vi={x,y,z} donde x,y,z son números que representan las coordenadas del vértice vi. Esta debería ser una lista de polígonos.

¿Cómo debo configurar mi archivo .dat para que pueda leerlo con Mathematica, y cómo debo leerlo? Traté de imitar la salida de Export["test.dat",a] anterior, pero luego descubrí el otro problema. Encontré esto question, pero no pude hacer que la respuesta funcione para mí ...

¿Alguna idea? ¡Gracias por adelantado!

Answer 1

Debe especificar el formato exacto en el que necesita importar/exportar, de lo contrario, es posible que Mathematica no adivine el formato correcto.

¿Entonces su pregunta se reduce a qué formato de texto es adecuado para almacenar matrices 3D?

Si trabaja con Mathematica, probablemente lo más fácil sea exportar la expresión utilizando la sintaxis de expresión de Mathematica, es decir, Export["data.m", a, "Package"]. Este formato es relativamente fácil de escribir desde otros idiomas (pero no es tan fácil de analizar). Su otra opción sería crear un nuevo formato de texto fácil de analizar para sus datos 3D, y escribir sus propias funciones de entrada/salida tanto en Mathematica como en los otros idiomas con los que necesite trabajar.

Dado que el formato de los datos que se está trabajando es fijo (que siempre tienen tripletas de coordenadas), la solución más sencilla puede ser simplemente aplanar su lista antes de exportar, y dividirla después de la importación, así:

Export["test.txt", Join @@@ a, "Table"] 
b = Import["text.txt", "Table"] 
Partition[#, 3]& /@ a 

Answer 2

Usted puede hacer también, por ejemplo:

a={{{0,0,0},{1,0,0},{1,1,0}},{{0,0,1},{1,0,1},{1,1,1}}}; 

Export["c:\\test.dat",a,"MathML"]; 
b=ToExpression@Import["c:\\test.dat","MathML"] 

(* 
->{{{0, 0, 0}, {1, 0, 0}, {1, 1, 0}}, {{0, 0, 1}, {1, 0, 1}, {1, 1, 1}}} 
*) 

el beneficio adicional es que este método no requiere analizar el Import salida

Answer 3

Para almacenar la expresión MMA me gustaría sugerir DumpSave (binario, depende del sistema), o SavePut, pero si desea utilizar la exportación Me convierto en una cadena de un y exportarlo como texto . (Yo uso ImportString y ExpertString a continuación, por lo que no necesito un archivo, pero funciona igual para Import y Export). IMO esto es sólido como una roca.

a = {{{0, 0, 0}, {1, 0, 0}, {1, 1, 0}}, {{0, 0, 1}, {1, 0, 1}, {1, 1, 1}}}; 
b = ToExpression@ImportString[ExportString[a // ToString, "Text"], "Text"] 

(* ==> 
{{{0, 0, 0}, {1, 0, 0}, {1, 1, 0}}, {{0, 0, 1}, {1, 0, 1}, {1, 1, 1}}} 
*) 

a == b 

(* ==> True *) 

La lectura de su lista de polígonos debería funcionar de la misma:

b = ToExpression@ImportString["test.dat", "Text"] 

Answer 4

También voy este problema. Mi solución es la siguiente:

IN[]: a = {{{0, 0, 0}, {1, 0, 0}, {1, 1, 0}}, {{0, 0, 1}, {1, 0, 1}, {1, 1, 1}}}; 
     Export["test.dat", a, "List"]; 
     b = ToExpression@Import["test.dat", "List"]; 
     a == b 

Out[]: True 

Espero que esto ayude. Atentamente.