вывод списка в файл mathematica

Question

ret = {};
For[i = 1, i <= Length@x, i++, 
  AppendTo[ret, {idNum = x[[i, 1]] , a = x[[i, 2]], b = x[[i, 3]], 
     c = x[[i, 4]], d = x[[i, 5]], e = x[[i, 6]], f = x[[i, 7]], 
     g = DateDifference[{d, e, f}, {currYear, currMonth, currDay}], 
     If[g > 90, Y, N]}];];
Print@ret

Как вывести список в текстовый файл без скобок и скобок, также требуется новая строка после каждой строки.

Answer 1

Мне нравится использовать Export["ret.m", ret, "Lines"], чтобы получить одну запись на строку в выходном файле ret.m.YMMV в зависимости от структуры экспортируемого материала.

Answer 2

Вам необходимо использовать команду Export, например, чтобы сохранить массив nxn, так как значения, разделенные запятыми, используют что-то вроде:

data = RandomInteger[{0, 256}, {50, 50}]
Export[NotebookDirectory[] <> "data.csv", data, "CSV"]

Встроенные форматы приведены в $ExportFormats

Answer 3

Так же, как в сторону:

Обычный способ программирования в Mathematica является функциональным, а не процедурным.

Переменные определяются только тогда, когда вам нужно что-то проверить или сохранить результаты для будущей работы.Кроме того, петли не рекомендуется.

Эквивалентная форма вашей программы (простой набросок), в этих строках может быть что-то вроде:

x = {{1, a1, b1, c1, 2010, 11, 12},
     {1, a2, b2, c2, 2011, 12, 13}};
Export["c:\data.csv", #, "CSV"] &
[Flatten[
    {#[[1 ;; 7]],
     {#, If[# > 90, "Y", "N"]} &@
      DateDifference[#[[5 ;; 7]], DateList[][[1 ;; 3]]]}
    ] & /@ x]