|
Hallo,
also mit meiner Mathematica-Version (5.2)
geht das wie folgt:
file="C://temp.txt";
ausgabeliste=Flatten[Table[{i, j, k}, {i, 1, 2, 1}, {j, 1, 2, 1},
{k, 1, 2, 1}], 2];
headings={None, {"i", "j", "k"}};
Export[file, TableForm[ausgabeliste, TableHeadings -> headings],"Table"];
Gruesse aus Berlin
|