- 締切済み
VBAにおけるニュートン法
VBAでx+EXP(x)+sin(x)に初期値を与えてニュートン法で解くプログラムを作りたいのですが、Do loop whileの使い方がいまいちよくわかりません。 教えてくださいお願いします。
- みんなの回答 (2)
- 専門家の回答
みんなの回答
noname#149523
回答No.2
最大反復回数nMax、初期値x0、誤差定数epsを指定する。 反復回数nがnMaxを超えるか、収束した場合にループを抜ける。 Do While n <= nMax x1 = x0 - f(x0) / f'(x0) If Abs(x1 - x0) <= eps Then Exit Do n = n + 1 x0 = x1 Loop
- himajin100000
- ベストアンサー率54% (1660/3060)
回答No.1
あとで取替えが効くようにクラスモジュールを使って少し難し目に作ってみた。 https://cid-b89cb784f5346675.office.live.com/browse.aspx/TestCase/Q6353585