アプリ版：「スタンプのみでお礼する」機能のリリースについて

VBAにおけるニュートン法

締切済

  • 質問者：nsm92765
  • 質問日時：
  • 回答数：2件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (2件)

No.2

  • 回答者： multipul
  • 回答日時：

最大反復回数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
    • good
    • 0
    • 件
通報する

No.1

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



https://cid-b89cb784f5346675.office.live.com/bro …
    • good
    • 0
    • 件
通報する

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報