my $ideal = 0; my ($sex,$height,$weight,$active,$frame) = ($argument =~ /^(\d) (\d+) (\d+) (\d) (\d)/); my $bmi = ($weight / ( $height * $height ) ) * 703; if ($frame == 3) { $frame = 1.10; } elsif ($frame == 2) { $frame = 1; } elsif ($frame == 1) { $frame = 0.90; } else { $frame = 1; } if ($sex == 1) { # Male $ideal = (((($height - 60) * 2.3 ) + 50 ) * 2.2046226 ) * $frame; $lrange = (20.7 / 703) * ($height * $height); $hrange = (26.4 / 703) * ($height * $height); } else { # Female $ideal = (((($height - 60) * 1.7 ) + 49 ) * 2.2046226 ) * $frame; $lrange = (19.1 / 703) * ($height * $height); $hrange = (25.8 / 703) * ($height * $height); } $ideal = sprintf("%d", $ideal); $lrange = sprintf("%d", $lrange); $hrange = sprintf("%d", $hrange); $bmi = sprintf("%.1f", $bmi); if ($active == 4) { $active = 16; } elsif ($active == 3) { $active = 15; } elsif ($active == 2) { $active = 14; } elsif ($active == 1) { $active = 13; } else { $active = 13; } my $ical = $ideal * $active; my $idiff = $weight - $ideal; my $scal = ( $idiff * 4 ) + $ical; my $lcal = $scal - 500; my $ovun = 'over'; if ($idiff < 0) { $idiff = abs($idiff); $ovun = 'under'; } &talk('You are '.$idiff.' lbs '.$ovun.' your ideal weight of '.$ideal.' ('.$lrange.'-'.$hrange.') lbs, with a BMI value of '.$bmi.'.Calories to keep ideal are '.$ical.', to keep same weight are '.$scal.', and to lose one lb/wk are '.$lcal.'.');