数学のブログ

数と極限 数列と極限 フィボナッチ数列、2つの項の比、極限値、黄金比

微分積分演習〈理工系の数学入門コース/演習 新装版〉 (和達 三樹(著)、十河 清(著)、岩波書店)の第1章(数と極限)、1-2(数列と極限)、問題3の解答を求めてみる。

a n = F n + 1 F n = F n + F n - 1 F n = 1 + F n - 1 F n = 1 + 1 F n F n - 1 = 1 + 1 a n - 1
a n - a n - 1 = ( 1 + 1 a n - 1 ) - ( 1 + 1 a n - 2 ) = 1 a n - 1 a a - 2 ( a n - 2 - a n - 1 )

(この計算結果は役立ちそうな気がしない。)

a n - a n - 2 = ( 1 + 1 a n - 1 ) - ( 1 + 1 a n - 3 ) = 1 a n - 1 a n - 3 ( a n - 3 - a n - 1 )

また、

a 0 = F 1 F 0 = 1 1 = 1 a 1 = F 2 F 1 = 2 1 = 2 a 2 = F 3 F 2 = 3 2 a 2 - a 0 = 3 2 - 1 = 1 2 > 0

なので、

1 = a 0 < a 2 < < a 2 k < 2 = a 1 > a 3 > > a 2 k + 1 >

また、

n > 0 a n > 1 1 a n + 2 a n < 1

なので、

1 = a 0 < < a 2 k < < a 2 k + 1 < < a 1 = 2

よって、

( a n ) n

は収束する。

(証明終)

極限値をaとおくと、

a = 1 + 1 a
a 2 - a - 1 = 0
a = 1 ± 1 + 4 2 = 1 ± 5 2

ただ、

a 0

なので、

a = 1 + 5 2

コード(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}]
Output
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
Output
% // N
1.61803
ListLinePlot[
    {
        Table[a[n], {n, 0, 10, 1}],
        Table[(1+Sqrt[5]) / 2, {n, 0, 10, 1}]
    },
    PlotRange -> {1, 2}
]
Output
ListLinePlot[
    {
        Table[a[n], {n, 0, 5, 1}],
        Table[(1+Sqrt[5]) / 2, {n, 0, 5, 1}]
    },
    PlotRange -> {1, 2}
]
Output
ListLinePlot[
    {
        Table[a[n], {n, 0, 20, 1}],
        Table[(1+Sqrt[5]) / 2, {n, 0, 20, 1}]
    },
    PlotRange -> {1, 2}
]
Output