• 締切済み

VBAにおけるニュートン法

VBAでx+EXP(x)+sin(x)に初期値を与えてニュートン法で解くプログラムを作りたいのですが、Do loop whileの使い方がいまいちよくわかりません。 教えてくださいお願いします。

みんなの回答

noname#149523
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

回答No.1

あとで取替えが効くようにクラスモジュールを使って少し難し目に作ってみた。 https://cid-b89cb784f5346675.office.live.com/browse.aspx/TestCase/Q6353585

関連するQ&A