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

# ひし形の面積 Area of a Rhombus
# 引数 対角線A 対角線B ($DiagonalA, $DiagonalB)
# 戻り値 ひし形の面積 ($Rhombus)
sub RHOMBUS{
my ($DiagonalA, $DiagonalB) = @_;
my @Rhombus = ();
my $ConvertAngle = 0.0174532925199432957692369076849;

# 対角線の確認
if(($DiagonalA <= 0) || ($DiagonalB <= 0)){
return 0;
}

# ひし形の面積 Area of a Rhombus
# [0] ひし形の面積 [1] 周囲の長さ [2] 頂点の角度A [3] 頂点の角度B
$Rhombus[0] = ($DiagonalA * $DiagonalB) / 2;
$Rhombus[1] = 2 * sqrt(($DiagonalA * $DiagonalA) + ($DiagonalB * $DiagonalB));
$Rhombus[2] = (2 * atan2($DiagonalB, $DiagonalA));
$Rhombus[3] = (2 * atan2($DiagonalA, $DiagonalB));
# ラジアンから角度に変換
$Rhombus[2] = $Rhombus[2] / $ConvertAngle;
$Rhombus[3] = $Rhombus[3] / $ConvertAngle;

return @Rhombus;
}


参考URL
ひし形の面積 - 高精度計算サイト
菱形 - Wikipedia
初等数学公式集 - Wikibooks
初等数学公式集/平面図形 - Wikibooks

一言
タンジェントの扱い方を忘れる
アークタンジェントだった
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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

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