FC2ブログ

# 双曲線正弦(近似) Hyperbolic Sine Approximation
# 引数 値 ($X)
# 戻り値 双曲線正弦 ($HyperbolicSineApproximation)
sub HYPERBOLICSINE{
my ($X) = @_;
my $HyperbolicSineApproximation = 0;
my $Sum = 0;
my $Num = 1;
my $Factorial = 1;
my $Expansion = 20;

for(my $i = 0; $i <= $Expansion; $i++){
# 分子
$Num = $X ** ((2 * $i) + 1);

if($i != 0){
# 分母 階乗
for(my $j = ((2 * $i) + 1); $j > ((2 * ($i - 1)) + 1); $j--){
$Factorial = $Factorial * $j;
}
}

$Sum += ($Num / $Factorial);
}

# 双曲線正弦(近似) Hyperbolic Sine
$HyperbolicSineApproximation = $Sum;

return $HyperbolicSineApproximation;
}


参考URL
双曲線関数 - Wikipedia
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

Author:雨宮
Firefoxを使用しているので気づかなかったけど、IE6でソースコードを上手くコピーできない

5/3
携帯用ならIE6でもソースコードをコピーできる
携帯用

検索フォーム


あわせて読みたいブログパーツ
一寸先は闇 RSS