FC2ブログ

# 正四角錐の体積(底辺と高さから) Volume of a Square Pyramid
# 引数 底辺の長さ 高さ ($Length, $Height)
# 戻り値 正四角錐の体積(底辺と高さから) (@SquarePyramid)
sub SQUAREPYRAMID{
my ($Length, $Height) = @_;
my @SquarePyramid = ();
my $ConvertAngle = 0.0174532925199432957692369076849;

# 底辺の長さ 高さの確認
if(($Length <= 0) || ($Height <= 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] = sqrt(($Height * $Height) + (($Length / 2) * ($Length / 2)));
$SquarePyramid[4] = atan2((2 * $Height), $Length);
# ラジアンから角度に変換
$SquarePyramid[4] = $SquarePyramid[4] / $ConvertAngle;

return @SquarePyramid;
}


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

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

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

検索フォーム


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

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