Импорт данных из TXT в Mathematica

Question

Рассмотрим следующий список в Mathematica:

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

Теперь вызываем:

Export["test.dat", a] 

и затем

b = Import["test.dat"] 

Вы увидите, что в конце a не равен b. Должен ли я рассматривать это как функцию или ошибку?

Кроме того, я хотел бы импортировать список, имеющим следующий формат: {P1,P2,P3...,Pn} где Pi={v1,v2,v3,...,vm} и каждый vi={x,y,z}, где x,y,z является числом, представляющие координаты вершин vi. Это должен быть список полигонов.

Как мне установить файл .dat, чтобы я мог прочитать его с помощью Mathematica и как его прочитать? Я попытался имитировать вывод Export["test.dat",a] выше, но затем я обнаружил другую проблему. Я нашел это question, но не смог заставить ответ работать для меня ...

Любые идеи? Заранее спасибо!

Answer 1

Необходимо указать точный формат, который требуется импортировать/экспортировать, в противном случае Mathematica, возможно, не сможет угадать правильный формат.

Итак, ваш вопрос сводится к тому, какой текстовый формат подходит для хранения 3D-массивов?

Если вы работаете с Mathematica, возможно, самой простой задачей является экспорт выражения с использованием синтаксиса выражений Mathematica, то есть Export["data.m", a, "Package"]. Этот формат относительно легко писать с других языков (но это не так легко разобрать). Другой вариант - создать новый простой для анализа текстовый формат для ваших 3D-данных и написать свои собственные функции ввода-вывода для него как в Mathematica, так и на других языках, с которыми вам нужно работать.

Поскольку формат данных вы работаете с фиксирован (у вас всегда есть координата триплеты), самое простое решение может быть просто расплющить список перед экспортом, и разделить его после импорта, как это:

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

Answer 2

Вы также можете сделать, например:

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

дополнительным преимуществом является то, что этот метод не требует разбора Import OUTPUT

Answer 3

Для хранения выражения ММЫ я хотел бы предложить DumpSave (двоичной, зависят от системы), Save или Put, но если вы хотите использовать Экспорт я бы преобразовать в строку и экспорт, что в качестве текста. (Я использую ImportString и ExpertString ниже, так что мне не нужен файл, но он работает одинаково для Import и Export). ИМО это твердое тело, как камень.

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

Чтение списка полигонов должны работать так же:

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

Answer 4

Я тоже хожу эту проблему. Мое решение таково:

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 

Надеюсь, что это поможет. С наилучшими пожеланиями.