漸化式

基礎情報処理の授業で漸化式ってのはこういう式なんだよってちゃんと式まで書いて示していたにも関わらず、『漸化式がわからないので解けません』とか言われたので、先生がちょっとプチッときてました…
ちょっと数式のほうはこのブログでは書くのがめんどいので省略しますが、要は
X = (X + A / X) / 2.0
 
と素直に書き直せば済む話だったんですけどね。
生徒にキレ気味で言われたので先生もキレ気味で答えてました。
       REAL A,X
      INTEGER K
      WRITE(*,*) 'Please input a,b.'
      READ(*,*) A,X
          DO 10 K = 1, 10
          X = (X + A / X) / 2.0
          WRITE(*,*) X
   10 CONTINUE
      STOP
      END
とまぁ、こういう感じで書いてくれればそれでよかったんですが…
ちなみにKの値は何でもOKです。
数学的に解析しろとか言ってるわけではなく、収束するところがわかればそれでいいので。
実行結果は以下のとおり。(A = 2、X(0) = 1としています)
 Please input a,b.
2
1
  1.5
  1.41666663
  1.41421568
  1.41421354
  1.41421354
  1.41421354
  1.41421354
  1.41421354
  1.41421354
  1.41421354

ってこれを業務日誌にしていいのか…
まぁ、いいか。

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中