FC2ブログ

# 加速度の単位変換 Convert Acceleration
# 引数 値 単位A 単位B ($Value, $UnitA, $UnitB)
# 戻り値 加速度の単位変換 ($ConvertAcceleration)
sub CONVERTACCELERATION{
my ($Value, $UnitA, $UnitB) = @_;
my $ConvertAcceleration = 0;
my $MeterPerSecondPerSecondA = 0;
my $MeterPerSecondPerSecondB = 0;

# 値の確認
if($Value <= 0){
return 0;
}

# $UnitAのメートル毎秒毎秒単位
$MeterPerSecondPerSecondA = &METERPERSECONDPERSECOND($UnitA);
# $UnitBのメートル毎秒毎秒単位
$MeterPerSecondPerSecondB = &METERPERSECONDPERSECOND($UnitB);

# 加速度の単位変換 Convert Acceleration
$ConvertAcceleration = ($MeterPerSecondPerSecondA / $MeterPerSecondPerSecondB) * $Value;

return $ConvertAcceleration;
}

# メートル毎秒毎秒単位 Meter Per Second Per Second
# 引数 単位 ($Unit)
# 戻り値 メートル毎秒毎秒単位 ($MeterPerSecondPerSecond)
sub METERPERSECONDPERSECOND{
my ($Unit) = @_;
my $MeterPerSecondPerSecondUnit = 0,
my %MeterPerSecondPerSecond = (
# メートル毎秒毎秒
"m/s2" => 1,
# ミリメートル毎秒毎秒
"mm/s2" => 0.001,
# キロメートル毎時毎秒
"km/h/s" => 0.2778,
# フィート毎時毎秒
"fph/s" => 0.0000846,
# フィート毎分毎秒
"fpm/s" => 0.00508,
# フィート毎秒毎秒
"fps2" => 0.3048,
# インチ毎分毎秒
"ipm/s" => 0.000423,
# インチ毎秒毎秒
"ips2" => 0.0254,
# マイル毎時毎秒
"mph/s" => 0.44704,
# マイル毎分毎秒
"mpm/s" => 26.8224,
# マイル毎秒毎秒
"mps2" => 1609.344,
# ガル
"Gal" => 0.01,
# ノット毎秒
"kn/s" => 0.5144444,
# 標準重力加速度
"g" => 9.80665,
);

# ハッシュの確認
if(exists($MeterPerSecondPerSecond{$Unit}) == 0){
return 0;
}

# メートル毎秒毎秒単位 Meter Per Second Per Second
$MeterPerSecondPerSecondUnit = $MeterPerSecondPerSecond{$Unit};

return $MeterPerSecondPerSecondUnit;
}


参考URL
メートル毎秒毎秒 - Wikipedia
単位の換算一覧 - Wikipedia
計量単位一覧 - Wikipedia
加速度の比較 - Wikipedia
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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