FC2ブログ

# 逆双曲線正接(近似) Inverse Hyperbolic Tangent Approximation
# 引数 値 ($X)
# 戻り値 逆双曲線正接 ($InverseHyperbolicTangentApproximation)
sub INVERSEHYPERBOLICTANGENT{
my ($X) = @_;
my $InverseHyperbolicTangentApproximation = 0;
my $Sum = 0;
my $Num = 0;
my $Den = 0;
my $Expansion = 20;

# 値の確認
if(abs($X) >= 1){
return 0;
}

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

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

# 逆双曲線正接(近似) Inverse Hyperbolic Tangent
$InverseHyperbolicTangentApproximation = $Sum;

return $InverseHyperbolicTangentApproximation;
}


参考URL
Inverse Hyperbolic Tangent -- from Wolfram MathWorld
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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