Fibonacci
詳細
- 記号操作・数値操作の両方に適した数学関数である.
は再帰関係
(
)を満たす.- n を複素数としたとき,
は一般式
により与えられる.
は黄金比である. - フィボナッチ多項式
は,式
を展開することで得られる
の係数である. - フィボナッチ多項式は再帰関係
を満足する. - FullSimplifyおよびFunctionExpandは,引数が n∈Integersを使用して整数と指定された場合に,フィボナッチ数を記号的な引数と結合するような変換則を含んでいる.
- Fibonacciは任意の数値精度で評価できる.
- Fibonacciは自動的にリストに縫い込まれる.
- FibonacciはIntervalオブジェクトおよびCenteredIntervalオブジェクトに使うことができる. »
例題
すべて開く すべて閉じる例 (6)
Table[Fibonacci[n], {n, 20}]Plot[Fibonacci[1 / 2, x], {x, -10, 10}]ComplexPlot3D[Fibonacci[5 / 3, z], {z, -2 - 2I, 2 + 2I}, PlotLegends -> Automatic]Series[Fibonacci[1 / 2, x], {x, 0, 5}]Infinityにおける級数展開:
Series[Fibonacci[1 / 2, x], {x, ∞, 5}]//FullSimplifySeries[Fibonacci[1 / 2, x], {x, -2I, 3}, Assumptions -> x > 1]//Normal//FullSimplifyスコープ (43)
数値評価 (6)
Fibonacci[5.8, 3]Fibonacci[8]N[Fibonacci[15 / 17], 50]Fibonacci[0.2114411444411100011, 5]N[Fibonacci[5, 8 - I]]Fibonacci[4750, 5`100]//TimingFibonacci[71.56, 5`100000];//TimingIntervalオブジェクトとCenteredIntervalオブジェクトを使って最悪の場合に保証される区間を計算する:
Fibonacci[0.4, Interval[{0.5, 0.6}]]Fibonacci[1 / 3, CenteredInterval[1 / 2, 1 / 100]]Aroundを使って平均的な場合の統計区間を計算することもできる:
Fibonacci[ Around[.2, 0.01]]Fibonacci[3, {{-1, 0}, {0, 5}}]MatrixFunctionを使って行列のFibonacci関数を計算することもできる:
MatrixFunction[Fibonacci[3, #]&, {{-1, 0}, {0, 5}}]特定の値 (6)
固定点におけるFibonacciの値:
Table[Fibonacci[3, x ], {x, 1, 5}]記号的な n と x についてのFibonacci多項式:
Fibonacci[n, x]//FunctionExpandFibonacci[1, 0]Fibonacci[0, 0]xval = x /. FindRoot[Fibonacci[3, x ] == 5, {x, 3}]Plot[Fibonacci[3, x ], {x, 0, 5}, Epilog -> Style[Point[{xval, Fibonacci[3, xval ]}], PointSize[Large], Red]]Fibonacci[7,x]多項式を計算する:
Fibonacci[7, x]Fibonacci[1/2,x]を計算する:
Fibonacci[1 / 2, x]//FunctionExpand可視化 (5)
Fibonacci関数をプロットする:
Plot[Fibonacci[x], {x, -2, 2}]Fibonacci多項式をさまざまな次数でプロットする:
Plot[{Fibonacci[1, x], Fibonacci[2, x], Fibonacci[3, x], Fibonacci[4, x]}, {x, -2, 2}]ComplexContourPlot[Re[Fibonacci[3, z]], {z, -1 - I, 1 + I}, Contours -> 24]ComplexContourPlot[Im[Fibonacci[3, z]], {z, -1 - I, 1 + I}, Contours -> 24]Plot3D[Re[Fibonacci[n, z]], {n, 0, 5}, {z, -1, 1}, PlotRange -> All]第2種および第3種のFibonacci多項式は異なる分岐構造を持つ:
Plot3D[Im[Fibonacci[3, x + I y]], {x, -3, 3}, {y, -0.5, 0.5}, Exclusions -> {{y == 0, Abs[x] > 1}}]Plot3D[Im[Fibonacci[3, x + I y]], {x, -3, 3}, {y, -0.5, 0.5}, Exclusions -> {{y == 0, -1 < x < 1}}]関数の特性 (14)
Fibonacciはすべての実数値について定義される:
FunctionDomain[Fibonacci[n, z], z]Fibonacciの近似関数の値域:
FunctionRange[Fibonacci[2, x], x, y]FunctionRange[Fibonacci[2, z], z, y, Complexes]Fibonacci[2, -x] == -Fibonacci[2, x]Fibonacci[1, -x] == Fibonacci[1, x]Fibonacciは鏡特性
を持つ:
Fibonacci[1, Conjugate[z]] == Conjugate[Fibonacci[1, z]]Fibonacciは要素単位でリストに縫い込まれる:
Fibonacci[{1, 2, 3, 4, 5}]Fibonacciは x の解析関数である:
FunctionAnalytic[Fibonacci[n, x], x, Assumptions -> n∈ℝ]Fibonacciは奇数値については非減少でも非増加でもない:
FunctionMonotonicity[Fibonacci[5, x], x]Fibonacciは偶数値については非減少である:
FunctionMonotonicity[Fibonacci[2, x], x]Fibonacciは奇数値については単射ではない:
Table[FunctionInjective[Fibonacci[n, x], x], {n, 4}]Plot[{Fibonacci[3, x], Fibonacci[4, x], 5}, {x, -3, 3}]Fibonacciは奇数値については全射ではない:
Table[FunctionSurjective[Fibonacci[n, x], x], {n, 4}]Plot[{Fibonacci[3, x], Fibonacci[4, x], -2}, {x, -3, 3}]Fibonacciは奇数値については非負である:
Table[FunctionSign[Fibonacci[n, x], x], {n, 4}]Fibonacciは特異点も不連続点も持たない:
FunctionSingularities[Fibonacci[n, x], x]FunctionDiscontinuities[Fibonacci[n, x], x]Fibonacciは奇数値について凸である:
Table[FunctionConvexity[Fibonacci[n, x], x], {n, 7}]TraditionalFormによる表示:
Fibonacci[n]//TraditionalForm微分 (3)
D[Fibonacci[n], n]D[Fibonacci[n, x], n]D[Fibonacci[n, x], x]Table[D[Fibonacci[n], {n, k}], {k, 1, 3}]//FullSimplifyPlot[%, {n, -5, 5}, PlotLegends -> {"First Derivative", "Second Derivative", "Third Derivative"}]D[Fibonacci[n], {n, k}]//FullSimplify積分 (3)
Integrateを使って不定積分を計算する:
Integrate[Fibonacci[x], x]// FullSimplifyIntegrate[Fibonacci[x], {x, 3, 15}]Integrate[Fibonacci[x]Fibonacci[5 - x], x]//FullSimplifyIntegrate[E ^ (-t)Fibonacci[t], {t, 0, Infinity}]級数展開 (4)
Seriesを使ってテイラー(Taylor)展開を求める:
Series[Fibonacci[x], {x, 0, 2}]terms = Normal@Table[Series[Fibonacci[x], {x, 0, m}], {m, 1, 5, 2}];
Plot[{Fibonacci[x], terms}, {x, -5, 5}]SeriesCoefficientを使った級数展開における一般項:
SeriesCoefficient[Fibonacci[x], {x, 0, n}]Infinityにおける級数展開を求める:
Series[Fibonacci[x], {x, Infinity, 1}]//NormalSeries[Fibonacci[x], {x, x0, 2}]//FullSimplify関数の恒等式と簡約 (2)
Fibonacciの一般的な母関数:
GeneratingFunction[Fibonacci[n], n, x]Fibonacci[n + 1, x] == x Fibonacci[n, x] + Fibonacci[n - 1, x]//FullSimplify一般化と拡張 (2)
アプリケーション (13)
RSolve[{f[n] == f[n - 1] + f[n - 2], f[2] == f[1] == 1}, f[n], n]FullSimplify[Table[First[f[n] /. %], {n, 10}]]RSolve[{f[n] == f[n - 1] + f[n - 2], f[1] == a, f[2] == b}, f[n], n]FullSimplify[Table[First[f[n] /. %], {n, 10}]]Table[Fibonacci[n + 1] / Fibonacci[n], {n, 15}]Table[FromContinuedFraction[Table[1, {n}]], {n, 15}]N[%]NestList[StringReplace[#, {"A" -> "AB", "B" -> "A"}]&, "A", 6]StringCount[%, "A"]Fibonomial[n_, k_] := Product[Fibonacci[n + j - k] / Fibonacci[j], {j, k}]Array[Fibonomial, {7, 7}]//Grid整数をフィボナッチ数
の和として表す方法がいくつあるか計算する:
fibonacciSumCount[n_] := SeriesCoefficient[Series[Product[1 + z ^ Fibonacci[k], {k, Ceiling[Log[GoldenRatio, n]] + 2}], {z, 0, n}], n]ListPlot[Table[fibonacciSumCount[n], {n, 100}]]ラメ(Lamé)の定理は
を計算するユークリッドのアルゴリズムのステップ数を拘束する:
𝒻[n_] := NestWhile[(# + 1)&, 1, Fibonacci[#] < n&] - 1maxEuclideanAlgorithmSteps[a_, b_] := Min[𝒻[Min[a, b]] - 1, 𝒻[Max[a, b]] - 2]ListPlot3D[Table[maxEuclideanAlgorithmSteps[a, b], {a, 100}, {b, 100}]]NestWhile[(# + 1)&, 1, Fibonacci[#] <= 10 ^ 6&]Fibonacci[%]ListLinePlot[Table[NestWhile[(# + 1)&, 1, Fibonacci[#] <= n&], {n, 200}]]複素平面上でFibonacciの絶対値をプロットする:
Plot3D[Abs[Fibonacci[x + I y]], {x, -5, 5}, {y, -1, 1}]ListPlot[Table[Length[FactorList[Fibonacci[n, x]]], {n, 50}]]fm = Fibonacci[30]ffm = Fibonacci[fm];And@@Table[Divisible[ffm, Fibonacci[n]], {n, Divisors[fm]}]{Table[GCD[Fibonacci[n], Fibonacci[k]], {n, 5}, {k, 5}]//MatrixForm,
Table[Fibonacci[GCD[n, k]], {n, 5}, {k, 5}]//MatrixForm}DiscretePlot[Mod[Fibonacci[n], 7], {n, 0, 35}]Table[Mod[Fibonacci[n + 16] - Fibonacci[n], 7], {n, 0, 15}]正の整数のZeckendorf表現を構築する[MathWorld]:
ZeckendorfRepresentation[n_Integer ? Positive] := Reap[Module[{m = n, f = Fibonacci},
While[m > 0, m -= f@Sow[NestWhile[# + 1&, 1, f[#] ≤ m&] - 1]]]][[2, -1]]ZeckendorfRepresentation[2011]Total[Fibonacci[%]]FibonacciTimes[n_, m_] := Total[Fibonacci[Outer[Plus, ZeckendorfRepresentation[n], ZeckendorfRepresentation[m]]], Infinity]Outer[FibonacciTimes, Range[6], Range[6]]//GridTable[FibonacciTimes[FibonacciTimes[n, m], k] == FibonacciTimes[n, FibonacciTimes[m, k]], {n, 1, 6}, {m, 1, 6}, {k, 1, 6}]//Flatten//Union特性と関係 (15)
フィボナッチ数 (13)
FunctionExpand[Fibonacci[n]]FullSimplify[Table[%, {n, 10}]]Limit[Fibonacci[n] / Fibonacci[n - 1], n -> Infinity]f[n_] := f[n] = f[n - 1] + f[n - 2]f[1] = f[2] = 1;Table[f[n], {n, 20}]g[0] = {1, 1};g[n_Integer ? Positive] := g[n] = {{1, 1}, {1, 0}}.g[n - 1]f[n_] := Last[g[n]]Table[f[n], {n, 0, 10}]MatrixPowerを使った閉形の解:
Table[Last[MatrixPower[{{1, 1}, {1, 0}}, n].{1, 1}], {n, 0, 10}]FullSimplify[Fibonacci[n + 1]Fibonacci[n - 1] - Fibonacci[n]^2, n > 0 && n∈Integers]Underoverscript[∑, k = 0, n]Fibonacci[k]Fibonacci[n - k]Underoverscript[∑, k = 0, ∞]Fibonacci[k]x^k//FullSimplifySeries[%, {x, 0, 10}]Fibonacci[1 / 3]//FunctionExpand//RootReduceFibonacciはDifferenceRootとして表すことができる:
DifferenceRootReduce[Fibonacci[k], k]DifferenceRootReduce[Fibonacci[k, x], k]Fibonacciの級数展開における一般項:
SeriesCoefficient[Fibonacci[x], {x, 0, n}]Fibonacciの母関数:
GeneratingFunction[Fibonacci[n], n, x]Series[%, {x, 0, 10}]FindSequenceFunctionはFibonacci数列を認識する:
Table[Fibonacci[n], {n, 10}]FindSequenceFunction[%, n]Fibonacciの指数母関数:
ExponentialGeneratingFunction[Fibonacci[n], n, x]考えられる問題 (3)
大きい引数は大きすぎて明示的に計算できない結果を与えることがある:
Fibonacci[10 ^ 16.]整数の引数についての結果は非整数については当て嵌らないかもしれない:
FullSimplify[Fibonacci[2n] == Fibonacci[n + 1]^2 - Fibonacci[n - 1]^2, n∈Integers]Fibonacci[2n] == Fibonacci[n + 1]^2 - Fibonacci[n - 1]^2 /. n -> 2.5MatrixPower[{{1, 1}, {1, 0}}, 2.5]Fibonacci[{{n + 1, n}, {n, n - 1}}] /. n -> 2.5おもしろい例題 (8)
Mod[Array[Fibonacci, 100], 10]ListLinePlot[Mod[Array[Fibonacci, 200], 10]]n を法としたフィボナッチ数 [詳細]:
ListLinePlot[Table[Mod[Fibonacci[n], n], {n, 200}]]100万番目のFibonacci数に含まれる0から9までの数の数を数える:
DigitCount[Fibonacci[10 ^ 6]]Fibonacciの失われつつある実部と虚部の等高線:
ContourPlot[{Re[Fibonacci[x + I y]] == 0, Im[Fibonacci[x + I y]] == 0}, {x, -8, 8}, {y, -8, 8}]正負のフィボナッチ数のLogPlot:
LogPlot[Abs[Fibonacci[x]] + 1, {x, -10, 10}]非負の引数のときフィボナッチ数は減少しないが,フィボナッチ関数には極小値が1つある:
Plot[Fibonacci[n], {n, 0, 4}, Prolog -> {PointSize[0.02], Point[Table[{k, Fibonacci[k]}, {k, 0, 4}]]}]Underoverscript[∑, k = 1, ∞]2^-kFibonacci[k]Underoverscript[∑, k = 1, ∞]10^-kFibonacci[k]フィボナッチ多項式の係数の偶奇性は,傾いたシェルピンスキーのガスケットを与える:
ArrayPlot[Mod[Table[CoefficientList[Fibonacci[n, x], x], {n, 60}], 2]]テクニカルノート
履歴
1996 で導入 (3.0) | 1999 で更新 (4.0) ▪ 2000 (4.1) ▪ 2002 (4.2)
テキスト
Wolfram Research (1996), Fibonacci, Wolfram言語関数, https://reference.wolfram.com/language/ref/Fibonacci.html (2002年に更新).
CMS
Wolfram Language. 1996. "Fibonacci." Wolfram Language & System Documentation Center. Wolfram Research. Last Modified 2002. https://reference.wolfram.com/language/ref/Fibonacci.html.
APA
Wolfram Language. (1996). Fibonacci. Wolfram Language & System Documentation Center. Retrieved from https://reference.wolfram.com/language/ref/Fibonacci.html
BibTeX
@misc{reference.wolfram_2026_fibonacci, author="Wolfram Research", title="{Fibonacci}", year="2002", howpublished="\url{https://reference.wolfram.com/language/ref/Fibonacci.html}", note=[Accessed: 13-September-2026]}
BibLaTeX
@online{reference.wolfram_2026_fibonacci, organization={Wolfram Research}, title={Fibonacci}, year={2002}, url={https://reference.wolfram.com/language/ref/Fibonacci.html}, note=[Accessed: 13-September-2026]}