みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

VBAにおけるニュートン法

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

投稿日時 - 2010-11-30 11:57:29

QNo.6353585

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(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

投稿日時 - 2010-12-01 06:42:20

あとで取替えが効くようにクラスモジュールを使って少し難し目に作ってみた。

https://cid-b89cb784f5346675.office.live.com/browse.aspx/TestCase/Q6353585

投稿日時 - 2010-11-30 19:33:19

あなたにオススメの質問