#!/usr/local/bin/perl5
# 2:45
require ("forms.pl");
%FORM = &forms::Handle;
require("unitlist.pl");
$fields=0;
&genericlines;
@list=("energy", "pressure", "volume", "mass", "power");
# @listkind=(
# [$FORM{'energy_value'}, $FORM{'energyin'}, $FORM{'energout'}],
# [$FORM{'pressure_value'}, $FORM{'pressurein'}, $FORM{'pressureout'}],
# [$FORM{'volume_value'}, $FORM{'volumein'}, $FORM{'volumeout'}],
# [$FORM{'mass_value'}, $FORM{'massin'}, $FORM{'massout'}],
# [$FORM{'power_value'}, $FORM{'powerin'}, $FORM{'powerout'}],
# );
$listkind[0][0]=$FORM{'energy_value'};
$listkind[0][1]=$FORM{'energyin'};
$listkind[0][2]=$FORM{'energyout'};
$listkind[1][0]=$FORM{'pressure_value'};
$listkind[1][1]=$FORM{'pressurein'};
$listkind[1][2]=$FORM{'pressureout'};
$listkind[2][0]=$FORM{'volume_value'};
$listkind[2][1]=$FORM{'volumein'};
$listkind[2][2]=$FORM{'volumeout'};
$listkind[3][0]=$FORM{'mass_value'};
$listkind[3][1]=$FORM{'massin'};
$listkind[3][2]=$FORM{'massout'};
$listkind[4][0]=$FORM{'power_value'};
$listkind[4][1]=$FORM{'powerin'};
$listkind[4][2]=$FORM{'powerout'};
$count=0;
while ($count<=4) {
if ($listkind[$count][0]!=0) {
$fields++;
$input=$listkind[$count][1];
$value=$listkind[$count][0];
$outkind=$listkind[$count][2];
$convertcommon=$units{$input}*$value;
$output=$convertcommon/$units{$outkind};
$lines=$lines . "
| $value $input |
$output $outkind |
";
}
$count++;
}
if ($FORM{'temperature_value'}) {
$value=$FORM{'temperature_value'};
$fields++;
%changecelsius = ("C", $value,
"F", (5/9*($value-32)),
"K", $value-273.15,
"R", (5/9*($value-459.67-32)),
);
$intermediate=$changecelsius{$FORM{'temperaturein'}};
%tempout=("C", $intermediate,
"F", (9/5*$intermediate+32),
"K", $intermediate+273.15,
"R", (9/5*$intermediate+32+459.67),
);
$lines=$lines . "
| $value $FORM{temperaturein} |
$tempout{$FORM{temperatureout}} $FORM{temperatureout} |
";
}
if ($fields==0) {
&return_blank;
} else {
&return_conversion;
}
# no answer or first try
sub return_blank {
print <
Unit Conversions
$formlines