# 力の単位変換 Convert Force
# 引数 力 単位A 単位B ($Force, $UnitA, $UnitB)
# 戻り値 力の単位変換 ($ConvertForce)
sub CONVERTFORCE{
	my ($Force, $UnitA, $UnitB) = @_;
	my $ConvertForce = 0;
	my $NewtonA = 0;
	my $NewtonB = 0;
	
	# 力の確認
	if($Force <= 0){
		return 0;
	}
	
	# $UnitAのニュートン単位
	$NewtonA = &NEWTON($Force, $UnitA);
	# $UnitBのニュートン単位
	$NewtonB = &NEWTON($Force, $UnitB);
	
	# 力の単位変換 Convert Force
	$ConvertForce = ($NewtonA / $NewtonB) * $Force;
	
	return $ConvertForce;
}
	
# ニュートン単位 Newton
# 引数 力 単位 ($Force, $Unit)
# 戻り値 ニュートン単位 ($Newton)
sub NEWTON{
	my ($Force, $Unit) = @_;
	my $Newton = 0;
	
	# ニュートン
	if($Unit eq "N"){
		# ニュートン
		$Newton = 1;
	}elsif($Unit eq "uN"){
		# マイクロニュートン
		$Newton = 0.000001;
	}elsif($Unit eq "mN"){
		# ミリニュートン
		$Newton = 0.001;
	}elsif($Unit eq "kN"){
		# キロニュートン
		$Newton = 1000;
	}elsif($Unit eq "MN"){
		# メガニュートン
		$Newton = 1000000;
	}
	
	# 力
	elsif($Unit eq "dyn"){
		# ダイン
		$Newton = 0.00001;
	}elsif($Unit eq "Mdyn"){
		# メガダイン
		$Newton = 10;
	}elsif($Unit eq "kgf"){
		# 重量キログラム
		$Newton = 9.80665;
	}elsif($Unit eq "gf"){
		# 重量グラム
		$Newton = 0.00980665;
	}elsif($Unit eq "ozf"){
		# 重量オンス
		$Newton = 0.2780138509537812;
	}elsif($Unit eq "lbf"){
		# 重量ポンド
		$Newton = 4.4482216152605;
	}elsif($Unit eq "kipf"){
		# 重量キップ
		$Newton = 4448.2216152605;
	}elsif($Unit eq "tnf"){
		# 重量トン
		$Newton = 8896.443230521;
	}elsif($Unit eq "au"){
		# 力の原子単位
		$Newton = 0.00000008238722241;
	}elsif($Unit eq "pdl"){
		# パウンダル
		$Newton = 0.138254954376;
	}elsif($Unit eq "sn"){
		# ステーヌ
		$Newton = 1000;
	}
	
	# 他
	else {
		$Newton = 0;
	}
	
	return $Newton;
}