Esportazione, applicazione/preparazione di dati e testo in file (Mathematica)

Question

Sto esportando dati dalla tabella "mydata1" in un formato CSV in "file1.dat". Di seguito è riportato il codice 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"]

Ora il mio "file1.dat" sembra questo:

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

Ora ho un altro set di dati dalla tabella "myData2" (codice indicato di seguito). Voglio in grado di archiviare i dati da questa tabella "myData2" nello stesso file "file1.dat" .ma prima di farlo. Scrivi un testo nel file "File1.dat" per EG "I dati di seguito sono di MyData2".

Nota che entrambe le dati di entrambe le tabelle devono essere esportate in formato 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]];

Alla fine il mio file di dati "file1.dat" dovrebbe apparire così

*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.

Se si osserva il file di dati finali "file1.dat" dovrebbe avere dati dalla tabella "mydata2" sotto i dati da "mydata1" e tra un po 'di testo è scritto.

Nota: sono disposto a esportare i dati con Extension TXT ma in formato CSV per esempio:

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

Ho usato il "putappend" ma non mi dà i risultati desiderati. Non lo sto usando correttamente o forse non è la parola chiave per il mio tipo di problema.

Ho molte domande sull'esportazione, ma non farei tutto questo ora poiché non voglio confondervi tutti.