質問編集履歴
1
次数nに関する説明が紛らわしかったので書き換えました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -4,7 +4,7 @@
|
|
4
4
|
|
5
5
|
|
6
6
|
|
7
|
-
問題は画像のようなものです。第n項目を出力することはできるのですが、n項目とn-1項目を比較しつつ
|
7
|
+
問題は画像のようなものです。第n項目を出力することはできるのですが、n項目とn-1項目を比較しつつそれらの誤差を出力する方法がどうしてもわかりません。nとn項目とn-1項目と誤差(書籍での|e|)をファイルに出力したいです.
|
8
8
|
|
9
9
|
|
10
10
|
|
@@ -22,7 +22,7 @@
|
|
22
22
|
|
23
23
|
implicit none
|
24
24
|
|
25
|
-
integer :: i, n=50 , fo=11
|
25
|
+
integer :: i, n=50 , fo=11 !50次まで足し上げ
|
26
26
|
|
27
27
|
real(8) :: pi=acos(-1.0d0), k, K1, X, sum=1.0d0, sum0 = 1.0d0
|
28
28
|
|