Location : Home > Languages > Perl > Package Title : Math::Fibonacci::Phi

名称

　Math::Fibonacci::Phi - 黄金比を計算

概要

use Math::Fibonacci::Phi;
use Math::Fibonacci::Phi qw(Phi phi);
use Math::Fibonacci::Phi ':all'

説明

エクスポート

　デフォルトではなし。以下の関数セクションで示すような方法でインポートできる。':all' で全関数をインポートできる。

関数

Phi($fn)

　所与のフィボナッチ数に対するPhi（黄金数；The Golden Number）を返す。引数がフィボナッチ数列の部分数列でなければ undef を返す。

phi($fn)

　所与のフィボナッチ数に対するphi（黄金数の逆数；antiPhi）を返す。引数がフィボナッチ数列の部分数列でなければ undef を返す。

series_Phi($n)

　それぞれのキーがフィボナッチ数と対応する Phi である、$n 項からなるフィボナッチ数列を返す。

series_phi($n)

　それぞれのキーがフィボナッチ数と対応する phi である、$n 項からなるフィボナッチ数列を返す。

term_Phi($nth)

　$nth 番目のフィボナッチ数に対応する Phi を返す。

term_phi($nth)

　$nth 番目のフィボナッチ数に対応する phi を返す。

super_series($n)

　それぞれのキーがフィボナッチ数と対応する Phi, phi, position である、$n 項からなるフィボナッチ数列を返す。
　'position' は数列内における位置を示す。（すなわち term_Phi() または term_phi() に対して与えるべき引数と同じ数）

フォーマットオプション

$Math::Fibonacci::Phi::Precision

　1から14桁の間で10進数の桁を指定する。

use Math::Fibonacci::Phi 'Phi';
print Phi(5), "\n";
$Math::Fibonacci::Phi::Precision = 7;
print Phi(5), "\n";

　結果は以下の通り：

1.66666666666667
1.6666667

$Math::Fibonacci::Phi::TrailingZeros

　$Math::Fibonacci::Phi::Precision が設定されれば、その数だけ 0 表示を保つ。

use Math::Fibonacci::Phi 'Phi';
$Math::Fibonacci::Phi::Precision = 5;
print Phi(3), "\n";
$Math::Fibonacci::Phi::TrailingZeros=1
print Phi(3), "\n";

　結果は以下の通り：

1.5
1.50000

参考資料

　Math::Fibonacci

著者

　Daniel Muey, http://drmuey.com/cpan_contact.pl

著作権とライセンス

　Copyright 2005 by Daniel Muey
　本ライブラリはフリーソフトウェアであり、Perl 本体と同等の条件で修正／再配布してよい。

Updated : 2006/06/17