台形公式による数値積分

台形公式

(1)(2)(3)
Graph Graph Graph

(1)の場合

      READ(5,*) N, A, B                 !   N, A, B を入力する
      DX = (B - A)/DFLOAT(N)            !   DX を定義する
      SUM = 0.D0                        !   SUM を初期化する
      DO I = 0, N - 1                   !   I = 0 から I = N - 1 まで繰り返す
        X = A + DX*I                    !   X を定義する
        SUM = SUM + F(X)                !   関数値を SUM に加えていく
      END DO
      S = DX*SUM                        !   積分値を計算する
      WRITE(6,*) 'Integrated value=',S  !   出力する
台形公式による数値積分.txt · 最終更新: 2014/03/12 15:08 by kimi
www.chimeric.de Creative Commons License Valid CSS Driven by DokuWiki do yourself a favour and use a real browser - get firefox!! Recent changes RSS feed Valid XHTML 1.0