wolfram-mathematica - 用逗号从 Mathematica 导出数据

我以这种方式将数据从 mathematica 导出到带有“dat”扩展名的文件中。

numbercount=0;
exporttable =
   TableForm[
    Flatten[
     Table[
      Table[
       Table[{++numbercount, xcord, ycord, zcord}, {xcord, 0, 100, 5}],
      {ycord, 0, 100, 5}],
     {zcord,10, 100, 10}],
    2]];
Export["mydata.dat", exporttable]

现在发生的是“mydata.dat”文件，输出显示如下

1  0   0   10
2  5   0   10
3  10  0   10  and so on

但我希望数据在“mydata.dat”文件中显示为这样。

1, 0,  0,  10
2, 5,  0,  10
3, 10, 0,  10  and so on

如果您是观察者，我希望在每个第一个、第二个和第三个数字后加一个逗号，而不是每行中的第四个数字后。

我试过这段代码，它在数字之间插入逗号，但运行时间很长，因为我有大量数据要导出。我也觉得有人可能会想出更好的解决方案。

numbercount=0;
exporttable =Flatten[
              Table[
               Table[
                Table[{++numbercount, xcord, ycord, zcord}, {xcord, 0, 100, 5}],
               {ycord, 0, 100, 5}],
              {zcord,10, 100, 10}],
             2];
x = TableForm[Insert[
              exporttable[[i]], ",", {{2}, {3}, {4}}], {i, 1, Length[exporttable]}];
Export["mydata.dat", x]

最佳答案

您是否尝试将其导出为 CSV 文件？ Export 的第三个参数是文件类型，所以你输入

Export["mydata.dat", x, "CSV"]

除此之外，这里是 Mathematica 中可用格式的 categorical list 和 alphabetical list。

关于wolfram-mathematica - 用逗号从 Mathematica 导出数据，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/7365203/