FC2ブログ

# エネルギー・仕事・熱量の単位変換 Convert Energy Work Amount Of Heat
# 引数 値 単位A 単位B ($Value, $UnitA, $UnitB)
# 戻り値 エネルギー・仕事・熱量の単位変換 ($ConvertEnergy)
sub CONVERTENERGY{
my ($Value, $UnitA, $UnitB) = @_;
my $ConvertEnergy = 0;
my $JouleA = 0;
my $JouleB = 0;

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

# $UnitAのジュール単位
$JouleA = &JOULE($UnitA);
# $UnitBのジュール単位
$JouleB = &JOULE($UnitB);

# エネルギー・仕事・熱量の単位変換 Convert Energy
$ConvertEnergy = ($JouleA / $JouleB) * $Value;

return $ConvertEnergy;
}

# ジュール単位 Joule
# 引数 単位 ($Unit)
# 戻り値 ジュール単位 ($Joule)
sub JOULE{
my ($Unit) = @_;
my $JouleUnit = 0,
my %Joule = (
# ジュール
"J" => 1,
# ナノロジュール
"nJ" => 0.000000001,
# マイクロジュール
"uJ" => 0.000001,
# ミリジュール
"mJ" => 0.001,
# キロジュール
"kJ" => 1000,
# メガジュール
"MJ" => 1000000,
# ギガジュール
"GJ" => 1000000000,
# 重量キログラムメートル
"kgf" => 9.80665,
# 電子ボルト
"eV" => 1.602176e-19,
# リュードベリ
"Ry" => 2.179872e-18,
# エネルギーの原子単位 ハートリー
"Eh" => 4.359744e-18,
# エルグ
"erg" => 0.0000001,
# フィート・パウンダル
"ft" => 0.0421401100938048,
# 立方センチメートル気圧
"scc" => 0.101325,
# インチ・重量ポンド
"in" => 0.1129848290276167,
# フィート・重量ポンド
"ft" => 1.3558179483314004,
# カロリー (0度)
"cal0C" => 4.219,
# カロリー(3.98度)
"cal3.98C" => 4.2045,
# カロリー (4度)
"cal4C" => 4.20450,
# カロリー (15度)
"cal15C" => 4.1855,
# カロリー(20度)
"cal20C" => 4.1819,
# カロリー (平均)
"calmean" => 4.19002,
# カロリー (熱力学)
"calth" => 4.184,
# カロリー (国際蒸気表)
"calIT" => 4.1868,
# キロカロリー 大カロリー"
"kcal" => 4186.8,
# リットル気圧
"sl" => 101.325,
# ガロン気圧(米)
"us/gal" => 383.5568490138,
# ガロン気圧(英)
"uk/gal" => 460.63256925,
# 英熱量 (熱力学)
"BTUth" => 1054.35,
# 英熱量 (ISO)
"BTUISO" => 1054.5,
# 英熱量 (63F)
"BTU63F" => 1054.6,
# 英熱量 (60F)
"BTU60F" => 1054.68,
# 英熱量 (59F)
"BTU59F" => 1054.804,
# 英熱量 (国際蒸気表)
"BTUIT" => 1055.05585262,
# 英熱量 (平均)
"BTUmean" => 1055.87,
# 英熱量 (39F)
"BTU39F" => 1059.67,
# Celsius heat unit(国際蒸気表)
"CHUIT" => 1899.100534716,
# 立方フィート気圧
"scf" => 2869.2044809344,
# 立方ヤード気圧
"scy" => 77468.5209852288,
# 立方フィート天然ガス
"ngas" => 1055055.85262,
# 馬力時
"hp" => 2684519.537696172792,
# キロワット時
"kW" => 3600000,
# サーミー
"th" => 4186800,
# サーミー(米)
"us/th" => 105480400,
# サーミー (E.C.)
"ec/th" => 105505585.262,
# トン (TNT火薬)
"tTNT" => 4184000000,
# 石油換算バレル
"bboe" => 6120000000,
# 石炭換算トン
"TCE" => 29307600000,
# 石油換算トン
"TOE" => 41868000000,
# Quad
"quad" => 1055055852620000000,
);

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

# ジュール単位 Joule
$JouleUnit = $Joule{$Unit};

return $JouleUnit;
}


参考URL
CONVERT - Excel - Microsoft Office Online
ジュール - Wikipedia
単位の換算一覧 - Wikipedia
計量単位一覧 - Wikipedia
エネルギーの比較 - Wikipedia
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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