mathematica、方程式の解と書き出し

質問

mathematicaの使用方法に関して質問させて頂きます。

f(x) - kx = 0

のような方程式の解を求める場合に、kの値を変化させた場合の解(実際にはNewton法で近似値を求める)を求め、

その一覧を.txtファイルに書き出したいのですが、方法がわかりません。

具体的にはkの値を 1から100まで1間隔で変化させた場合のそれぞれの解を x1, x2,,,x100とした場合に、

1 　x1
2　 x2
3 　x3
...
100 　 x100

(前者がkの値、後者がその時の解の値)

とテキストファイルに書き出したいと考えております。

方法をご存じでしたら、教えて頂けますと幸いです。

よろしくお願いいたします。

回答No.1

imoriimori · ベストアンサー

例えば次のようなのではいかがでしょうか。
data = Table[{i, Sqrt[i] // N}, {i, 1, 10}];
SetDirectory["D:\\Work\\"];
Export["exportTable.txt", data, "Table"]

本例は、dataはkと解のリストで、
出力先のディレクトリを指定し、
Exportで、ファイル名を適当に付けて、ファイル出力。形式は他にも多々あるようですが、"Table"が最もご希望に添うように思われます。