差分

この文書の現在のバージョンと選択したバージョンの差分を表示します。

台形公式による数値積分 2014/03/12 15:08 台形公式による数値積分 2014/03/12 15:08 現在
ライン 11: ライン 11:
<code FORTRAN> <code FORTRAN>
-      READ(5,*) N, A, B                ! N,A,Bを入力する +      READ(5,*) N, A, B                !   N, A, B を入力する 
-      DX = (B - A)/DFLOAT(N)            ! DXを定義する +      DX = (B - A)/DFLOAT(N)            !   DX を定義する 
-      SUM = 0.D0                        ! SUMを初期化する +      SUM = 0.D0                        !   SUM を初期化する 
-      DO I = 0, N - 1                  ! I=0からN-1まで繰り返す +      DO I = 0, N - 1                  !   I = 0 から I = N - 1 まで繰り返す 
-        X = A + DX*I                    ! Xを定義する +        X = A + DX*I                    !   X を定義する 
-        SUM = SUM + F(X)                ! 関数値をSUMに加えていく+        SUM = SUM + F(X)                !   関数値を SUM に加えていく
      END DO       END DO
-      S = DX*SUM                        ! 積分値を計算する +      S = DX*SUM                        !   積分値を計算する 
-      WRITE(6,*) 'Integrated value=',S  ! 出力する+      WRITE(6,*) 'Integrated value=',S  !   出力する
</code> </code>
台形公式による数値積分.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