FC2ブログ

# 速度の単位変換 Convert Speed
# 引数 値 単位A 単位B ($Value, $UnitA, $UnitB)
# 戻り値 速度の単位変換 ($ConvertSpeed)
sub CONVERTSPEED{
my ($Value, $UnitA, $UnitB) = @_;
my $ConvertSpeed = 0;
my $MeterPerSecondA = 0;
my $MeterPerSecondB = 0;

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

# $UnitAのメートル毎秒単位
$MeterPerSecondA = &METERPERSECOND($UnitA);
# $UnitBのメートル毎秒単位
$MeterPerSecondB = &METERPERSECOND($UnitB);

# 速度の単位変換 Convert Speed
$ConvertSpeed = ($MeterPerSecondA / $MeterPerSecondB) * $Value;

return $ConvertSpeed;
}

# メートル毎秒単位 Meter Per Second
# 引数 単位 ($Unit)
# 戻り値 メートル毎秒単位 ($MeterPerSecond)
sub METERPERSECOND{
my ($Unit) = @_;
my $MeterPerSecondUnit = 0,
my %MeterPerSecond = (
# メートル毎秒
"m/s" => 1,
# センチメートル毎秒
"cm/s" => 0.01,
# キロメートル毎秒
"km/s" => 1000,
# キロメートル毎時
"km/h" => 0.2777778,
# インチ毎分
"ipm" => 0.000423333,
# インチ毎秒
"ips" => 0.0254,
# フィート毎時
"fph" => 0.00008466667,
# フィート毎分
"fpm" => 0.00508,
# フィート毎秒
"fps" => 0.3048,
# マイル毎時
"mph" => 0.44704,
# マイル毎分
"mpm" => 26.8224,
# マイル毎秒
"mps" => 160934.4,
# ノット
"kn" => 0.514444,
# ノット(英海軍)
"uk/kn" => 0.514773,
# ハロン毎フォートナイト
"fur" => 0.0001663095,
# マッハ
"M" => 340.29,
# 第一宇宙速度
"fcs" => 790000,
# 第二宇宙速度
"scs" => 1120000,
# 第三宇宙速度
"tcs" => 1670000,
# 真空中の光速度
"c" => 299792458
);

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

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

return $MeterPerSecondUnit;
}


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

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

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

検索フォーム


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