数と極限 数列と極限 フィボナッチ数列、2つの項の比、極限値、黄金比
微分積分演習〈理工系の数学入門コース/演習 新装版〉 (和達 三樹(著)、十河 清(著)、岩波書店)の第1章(数と極限)、1-2(数列と極限)、問題3の解答を求めてみる。
(この計算結果は役立ちそうな気がしない。)
また、
なので、
また、
なので、
よって、
は収束する。
(証明終)
極限値をaとおくと、
ただ、
なので、
コード(Wolfram Language, Jupyter)
f[n_] := If[n== 0 || n == 1, 1, f[n-1] + f[n-2]]
a[n_] := f[n+1] / f[n]
Table[f[n], {n, 0, 10, 1}]
{1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89}
Table[a[n], {n, 0, 10, 1}]
N[%]
{1., 2., 1.5, 1.66667, 1.6, 1.625, 1.61538, 1.61905, 1.61765, 1.61818, 1.61798}
(1+Sqrt[5]) / 2
% // N
1.61803
ListLinePlot[
{
Table[a[n], {n, 0, 10, 1}],
Table[(1+Sqrt[5]) / 2, {n, 0, 10, 1}]
},
PlotRange -> {1, 2}
]
ListLinePlot[
{
Table[a[n], {n, 0, 5, 1}],
Table[(1+Sqrt[5]) / 2, {n, 0, 5, 1}]
},
PlotRange -> {1, 2}
]
ListLinePlot[
{
Table[a[n], {n, 0, 20, 1}],
Table[(1+Sqrt[5]) / 2, {n, 0, 20, 1}]
},
PlotRange -> {1, 2}
]