FC2ブログ
最初
http://blog-imgs-36.fc2.com/a/m/a/amamiyaprog/ConvertPressureStress1.txt

修正1 5/30

# 圧力・応力の単位変換 Convert Pressure Stress
# 引数 値 単位A 単位B ($Value, $UnitA, $UnitB)
# 戻り値 圧力・応力の単位変換 ($ConvertPressureStress)
sub CONVERTPRESSURESTRESS{
my ($Value, $UnitA, $UnitB) = @_;
my $ConvertPressureStress = 0;
my $PascalA = 0;
my $PascalB = 0;

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

# $UnitAのパスカル単位
$PascalA = &PASCAL($UnitA);
# $UnitBのパスカル単位
$PascalB = &PASCAL($UnitB);

# 圧力・応力の単位変換 Convert Pressure Stress
$ConvertPressureStress = ($PascalA / $PascalB) * $Value;

return $ConvertPressureStress;
}

# パスカル単位 Pascal
# 引数 単位 ($Unit)
# 戻り値 パスカル単位 ($Pascal)
sub PASCAL{
my ($Unit) = @_;
my $PascalUnit = 0;
my %Pascal = (
# パスカル
"Pa" => 1,
# ミリパスカル
"mPa" => 0.001,
# センチパスカル
"cPa" => 0.01,
# ヘクトパスカル
"hPa" => 100,
# キロパスカル
"kPa" => 1000,
# メガパスカル
"MPa" => 1000000,
# ニュートン毎平方ミリメートル
"N/mm2" => 0.000001,
# ニュートン毎平方センチメートル
"N/cm2" => 0.01,
# ニュートン毎平方メートル
"N/m2" => 1,
# キロニュートン毎平方メートル
"kN/m2" => 1000,
# ダイン毎平方センチメートル
"dyn/cm2" => 0.1,
# バール
"bar" => 100000,
# ミリバール
"mbar" => 100,
# バリ
"Ba" => 0.1,
# トル
"Torr" => 133.322368,
# 水銀柱ミリメートル
"mmHg" => 133.322368,
# 水銀柱センチメートル
"cmHg" => 1333.22368,
# 水銀柱メートル
"mHg" => 133322.368,
# 水銀柱フィート
"ftHg" => 40636.66,
# 水銀柱インチ
"inHg" => 3386.389,
# 水柱ミリメートル
"mmH2o" => 9.80638,
# 水柱センチメートル
"cmH2o" => 98.0638,
# 水柱メートル
"mH2o" => 9806.38,
# 水柱フィート
"ftH2O" => 2988.98,
# 水柱インチ
"inHg" => 249.082,
# パウンダル毎平方フィート
"pdl/sq" => 1.488164,
# 重量キップ毎平方インチ
"ksi" => 6894757,
# 重量ポンド毎平方フィート
"psf" => 47.88025,
# 重量ポンド毎平方インチ
"psi" => 6894.7572931683613367226734453469,
# 重量キログラム毎平方ミリメートル
"kgf/mm2" => 9806650,
# 重量キログラム毎平方センチメートル
"kgf/cm2" => 98066.5,
# 重量キログラム毎平方メートル
"kgf/m2" => 9.80665,
# 工学気圧
"at" => 98066.5,
# 気圧
"atm" => 101325,
# ピエーズ
"pz" => 1000,
# ショートトン毎平方フィート
"sh" => 95760.518
);

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

# パスカル単位 Pascal
$PascalUnit = $Pascal{$Unit};

return $PascalUnit;
}


参考URL
CONVERT - Excel - Microsoft Office Online
パスカル - Wikipedia
単位の換算一覧 - Wikipedia
計量単位一覧 - Wikipedia
圧力の比較 - Wikipedia

修正1
ハッシュに変更
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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