Importa dati da txt a Mathematica

Question

Considerare l'elenco seguente in matematica:

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

Ora, richiamare:

Export["test.dat", a] 

e poi

b = Import["test.dat"] 

vedrete che alla fine a non corrisponde a b. Dovrei considerare questo come una caratteristica o un bug?

Inoltre, desidero importare un elenco avente il seguente formato: {P1,P2,P3...,Pn} dove Pi={v1,v2,v3,...,vm} e ogni vi={x,y,z} dove x,y,z sono numeri che rappresentano le coordinate del vertice vi. Questo dovrebbe essere un elenco di poligoni.

Come devo impostare il mio file .dat così posso leggerlo con Mathematica e come devo leggerlo? Ho provato a imitare l'output di Export["test.dat",a] sopra, ma poi ho scoperto l'altro problema. Ho trovato questo question, ma non riuscivo a far funzionare la risposta per me ...

Qualche idea? Grazie in anticipo!

Answer 1

È necessario specificare il formato esatto che è necessario importare/esportare, altrimenti Mathematica potrebbe non essere in grado di indovinare il formato corretto.

Quindi la tua domanda si riduce a quale formato testuale è adatto per la memorizzazione di array 3D?

Se si lavora con Mathematica, probabilmente la cosa più semplice da fare è esportare l'espressione utilizzando la sintassi di espressione di Mathematica, ad esempio Export["data.m", a, "Package"]. Questo formato è relativamente facile da scrivere da altre lingue (ma non è così facile da analizzare). La tua altra opzione sarebbe quella di creare un nuovo formato testuale facile da analizzare per i tuoi dati 3D, e scrivere le tue funzioni di input/output per esso sia in Mathematica che nelle altre lingue con cui hai bisogno di lavorare.

Poiché il formato dei dati si sta lavorando è fisso (avete sempre coordinare tre gemelli), la soluzione più semplice potrebbe essere quella di appiattire appena fuori la vostra lista prima di esportare, la partizione e dopo l'importazione, in questo modo:

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

Answer 2

si può anche fare, ad esempio:

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}}} 
*) 

l'ulteriore vantaggio è che questo metodo non richiede l'analisi del Import uscita

Answer 3

Per la memorizzazione di espressione MMA Io suggerirei DumpSave (binario, dipende dal sistema), Save o Put, ma se si desidera utilizzare Export mi piacerebbe convertire un una stringa , e l'esportazione che, come testo. (Io uso ImportString e ExpertString di seguito, in modo che non ho bisogno di un file, ma funziona allo stesso modo per Import e Export). IMO questo è solido come una roccia.

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 *) 

Leggendo l'elenco poligono dovrebbe funzionare lo stesso:

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

Answer 4

Vado anche questo problema. La mia soluzione è la seguente:

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 

Spero che questo aiuti. I migliori saluti.