FC2ブログ

# 正四角錘の体積(底辺と側辺から) Volume of a Square Pyramid
# 引数 底辺の長さ 側辺の長さ ($Base, $Corner)
# 戻り値 正四角錘の体積(底辺と側辺から) (@SquarePyramid)
sub SQUAREPYRAMID{
my ($Base, $Corner) = @_;
my @SquarePyramid = ();
my $ConvertAngle = 0.0174532925199432957692369076849;
my $Length = $Base;
my $Height = sqrt((4 * ($Corner * $Corner)) - (2 * ($Base * $Base))) / 2;

# 底辺の長さ 側辺の長さの確認
if(($Base <= 0) || ($Corner <= 0)){
return 0;
}

# 正四角錘の体積(底辺と側辺から) Volume of a Square Pyramid
# [0] 正四角錘の体積(底辺と側辺から) [1] 正四角錐の側面積 [2] 正四角錐の表面積 [3] 正四角錐の側面の高さ [4] 側面傾斜角
$SquarePyramid[0] = (($Length * $Length) * $Height) / 3;
$SquarePyramid[1] = $Length * sqrt((4 * ($Height * $Height)) + ($Length * $Length));
$SquarePyramid[2] = ($Length * sqrt((4 * ($Height * $Height)) + ($Length * $Length))) + ($Length * $Length);
$SquarePyramid[3] = $Height;
$SquarePyramid[4] = atan2((2 * $Height), $Length);
# ラジアンから角度に変換
$SquarePyramid[4] = $SquarePyramid[4] / $ConvertAngle;

return @SquarePyramid;
}


参考URL
正四角錘の体積(底辺と側辺から) - 高精度計算サイト
四角錐 - Wikipedia
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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