Martin,
hier ist eine Moeglichkeit:
f[x_]= Sin[x];
liste= Table[{x, f[x]} //N, {x, 0, 2 Pi, 2 Pi / 10}];
stream= OpenWrite["filename.dat", FormatType-> OutputForm];
Do[
Write[stream, liste[[i, 1]], ",", liste[[i, 2]]]
,{i, Length[liste]}]
Close[stream];
Es gibt sicherlich elegantere Moeglichkeiten, diese funktioniert jedoch
fuer mich und ich denke, der Vorgang ist ueberschaubar. Die Zahlen werden
durch Kommas getrennt. Man kann auch andere Zeichen verwenden (z.B. Space,
Semikolon, etc.). Das haengt vom Spreadsheet Programm ab. In Excel kann
man angeben, was man verwendet hat. Komma funktioniert.
Wenn Du Fragen hast: sesselma@XXXXXXX.edu
Viel Spass,
Roland.
|