小编Pro*_*_UK的帖子

我将数据从表格"mydata1"以CSV格式导出到"file1.dat".以下是mathematica代码:

mydata1=TableForm[Flatten[
Table[Table[Table[
                 {xcord, ycord, zcord}, {xcord, 0,50,10}],
                   {ycord,0,50,10}], {zcord, 50, 100, 10}], 2]];

Export["file1.dat",mydata1,"CSV"]

现在我的"file1.dat"看起来像这样:

0,0,50
10,0,50
20,0,50
..
.. and so on

现在我从表"mydata2"(下面给出的代码)中得到了另一组数据.我希望能够将这个表"mydata2"中的数据存储到同一个文件"file1.dat"中.但在我这样做之前我需要在文件"file1.dat"中写入文本,例如"下面的数据来自mydata2".

请注意,两个表中的数据都需要以CSV格式导出.

mycounter=20
mydata2=TableForm[Flatten[
Table[Table[Table[
                 {++mycounter,xcord, ycord, zcord}, {xcord, 0,50,10}],
                   {ycord,0,50,10}], {zcord, 50, 100, 10}], 2]];

最后我的数据文件"file1.dat"应如下所示

*Data from data from mydata1
0,0,50
10,0,50
20,0,50
... and so on
*Below data from mydata2
21,0,0,50
22,10,0,50
23,20,0,50
... and so on.

如果你观察到最终的数据文件"file1.dat"应该有来自"mydata1"的数据下面的表"mydata2",并且在它们之间有一些文字被写入.

注意:我愿意使用扩展名TXT导出数据,但是以CSV格式导出例如:

Export["file1.txt", mydata1, "CSV"]

我使用了"PutAppend",但它没有给我想要的结果.要么我没有正确使用它,要么它可能不是我的问题的关键字.

我对出口有很多疑问,但我现在不会问这一切,因为我不想把你们全部搞糊涂.

我以这种方式将数据从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}], …

下面的代码有效,但当我用ListPlot3D替换ListPointPlot3D时,它不起作用!

这有效:

ListPointPlot3D[Transpose[Table[{i,j, (150*(Sin[((i - 90)*2*3.14)/180]^2)* (Sin[((j - 45)*2*3.14)/180]^2)) - 150}, {i, 0, 270, 5}, {j, 0, 270, 5}]]]

这不起作用:

ListPlot3D[Transpose[Table[{i,j, (150*(Sin[((i - 90)*2*3.14)/180]^2)* (Sin[((j - 45)*2*3.14)/180]^2)) - 150}, {i, 0, 270, 5}, {j, 0, 270, 5}]]]

任何想法为什么它不起作用？

我有两个问题,

Q1.代码如下:

orgtable = Table[{i, node2 = i + 1, node3 = node2 + 6, node4 = node3 - 1, 
                     node5 = i + 18, node6 = node5 + 1, node7 = node6 + 6, 
                     node8 = node7 - 1}, {i, 1, 36}
           ];
modtable = Drop[orgtable, {6, 36, 6}];
finaltable = With[{n = 5, m = 10},Flatten[Partition[modtable, n, n + m, 1, {}], 1]]

第一段代码给了我一个原始表,第二段给了我一个修改过的表,第三段给出了最终表.最终表的输出如下所示:

{{1, 2, 8, 7, 19, 20, 26, 25},    {2, 3, 9, 8, 20, 21, …