FC2ブログ
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

# 二次方程式の解 The Solution Of The Quadratic Equation
# 引数 x^2の係数 xの係数 定数項 ($a, $b, $c)
# 戻り値 二次方程式の解 (@QuadraticEquation)
sub QUADRATICEQUATION{
my ($a, $b, $c) = @_;
my @QuadraticEquation = ();
my $D = 0;

# x^2の係数の確認
if($a == 0){
return "";
}

# 判別式による解の判定
$D = ($b * $b) - (4 * $a * $c);

if($D > 0){
# 異なる2つの実数解
# 二次方程式の解 The Solution Of The Quadratic Equation
$QuadraticEquation[0] = (-$b + sqrt($D)) / (2 * $a);
$QuadraticEquation[1] = (-$b - sqrt($D)) / (2 * $a);
}
elsif($D == 0){
# 1つの解 (重解)
# 二次方程式の解 The Solution Of The Quadratic Equation
$QuadraticEquation[0] = -$b / (2 * $a);
}else {
# 異なる2つの虚数解
my $tmp1 = -$b / (2 * $a);
my $tmp2 = sqrt(-$D) / (2 * $a);
# 二次方程式の解 The Solution Of The Quadratic Equation
$QuadraticEquation[0] = "$tmp1" . " + " . "$tmp2" . "i";
$QuadraticEquation[1] = "$tmp1" . " - " . "$tmp2" . "i";
}

return @QuadraticEquation;
}


参考URL
二次方程式の解 - 高精度計算サイト
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。