<Mathematica>微分方程式の計算結果をファイルに出力する方法？

質問

はじめまして．
現在，微分方程式をMathematicaで解いています．
NDSolveを使ったあとにPlotすることで，例えば，振り子運動の時刻暦波形のようなものを画面上に出力する方法はわかるのですが，その時刻暦波形を生成したと思われるt，x(t)の組みがファイルに書き出せません．

どのようにすればt，x(t)の組みをファイルに書き出せるのでしょうか？

要するに，微分方程式を解いた結果の t,x(t)の組み をファイルに書き出そうとしています．他のグラフソフトに読み込むためです．
ご存知の方がいましたら，ご教授ください．お願いします．

回答No.1

denebola · ベストアンサー

今、手元にmathematicaがないのでアバウトな回答しかできませんが、
１．OpenWriteかOpenAppend（追記時）で出力ファイルを指定する
２．Writeでデータを書き込む
３．データ書き込みが終わったら、Closeでファイルを閉じる
という手順でよかったと思います。

stmp = OpenWrite["tmp"]
Write[stmp, t，" ", x(t)]
....
Close[stmp]

参考URL：

http://documents.wolfram.com/v5/TheMathematicaBook/PrinciplesOfMathematica/FilesAndStreams/2.12.3.html

お礼

ありがとうございます．教えていただいた内容を自分流にアレンジしてなんとかできました．助かりました～