导出,附加/预置数据和文本到文件中(Mathematica)

@H_502_0@

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

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

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

现在我的“file1.dat”看起来像这样：

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

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

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

mycounter=20
mydata2=TableForm[Flatten[
Table[Table[Table[
                 {++mycounter,xcord,2]];

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

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

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

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

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

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

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

解决方法

也许是这样的：

mydata1 = 
  Flatten[Table[Table[Table[
          {xcord,2];
mycounter = 20
mydata2 = 
  Flatten[Table[Table[Table[
          {++mycounter,2];

Export["c:\\test.txt",Join[{"* data1 follows"},{"* data2 follows"},mydata2],"CSV"]

生成的文件是：

* data1 follows
0,50
0,50
* data2 follows
21,50
24,50
25,50
26,50
27,50
28,50
29,50

导出,附加/预置数据和文本到文件中(Mathematica)

解决方法

猜你在找的HTML相关文章