|
Acme::Fitness - Perl extension for calculating fitness results |
Acme::Fitness - Perl extension for calculating fitness results
use Acme::Fitness;
my $fit4fight = new Acme::Fitness( { system => "metric" } );
$fit4fight->weight(75);
$fit4fight->hight(180);
$fit4fight->gender("male");
printf("Your BMI is %.2d \n",$fit4fight->bmi());
BMI = weight (kg) / height (m) x height (m)
BMI = weight (Lbs) * 704 / height (In.) x height (In.)
The BMI divide people into four groups: 1. Underweight ( < 18,5) 2. Normal ( 18,5 - 24,9) 3. Overweight (25,0 - 29,9) 4. Obesity (> 30)
Lars G. T. Jørgensen <larsj@diku.dk>
[1] http://www.fitness-usa.com/BMI.htm
[2] Scand J Med Sci Sports 1995 Jun;5(3):143-6
Add support for imperal measures.
|
Acme::Fitness - Perl extension for calculating fitness results |