Hippolyte Tekam wrote:
>
> liebe Mathematematica Anwender !
> Diese folgende Frage hatte ich bereit schon am 19.07, gestellt.
>
> *** Leider mit mein Mathematica ( version 3.0 )
> ist mir noch nicht gelungen von alle vorschläge das gewuenschte Ergebnis zu
> erreichen.
> wurde mich freuen wenn jemand noch ein paar Tips haette.
>
> Vile Gruesse
>
> Hippo
>
> ============================================
>
> Ich moechte eine Liste von entstandene Ergebnis von Mathematica in TableForm
> als asc oder Text-Datei Speichern.
>
> ein Beispiel:
>
> A = { {a1,b1,c1,d1}, {a2,b2,c2,d2}, {a3,b3,c3,d3}};
> B= Transpose[A];
> Print[" Spalte1 ,Spalte2,Spalte3"];
> Print[TableForm[B]];
>
> Das Ergebnis sieht so aus :
>
> Spalte1, Spalt2, Spalte3
> a1 a2 a3
> b1 b2 b3
> c1 c2 c3
>
> Jetzt Die Frage :
> Wie kann ich mathematica hinweisen mir dieses Ergebnis in form von Tabelle
> also TableForm ) als Text oder asc-datei zu speichern so das, wenn ich die
> Datei offne es genauso aussieht :
Ich mach's so. Nicht hübsch, aber es funktioniert:
SetDirectory["C:\\temp\\"];
datafile="test.file"
OpenWrite[datafile]
WriteString[datafile,"your first line \n"]
For[i=1,i \[LessEqual] Length[B],
For[j=1,j \[LessEqual] Length[B[[i]]],
WriteString[datafile,B[[i]][[j]]," "];j++];
WriteString[datafile,"\n"]; i++]
Close[datafile]
Ciao
-erk-
--
Dr.-Ing. Erk JENSEN mailto:Erk.Jensen@XXXXXXX.ch
CERN PS/RF G00710 http://nicewww.cern.ch/~jensene
CH-1211 Geneva 23 Tel.: +41 22 76 74298
Switzerland Fax.: +41 22 76 78590
|