Body-Mass-Index berechnen

Der Body-Mass-Index ist ein Wert der das Maß der Fettleibigkeit eines Menschen beschreibt. Er berechnet sich zu

BMI=m/(l*l)  mit Länge l in m und Masse m in kg

Bekannterweise arbeitet Forth mit ganzen Zahlen. Die Größe eines Menschen wird in cm gemessen. Deshalb muß die Formel umgeschrieben werden:

BMI=10000*m/(l*l) mit l in cm und m in kg

Zur Vereinfachnung führen wir ein, daß

m[kg] bedeutet m in kg (Mathe. korrekt)

Es ist anzunehmen, daß das Gewicht eines Menschen kleiner als 322 kg ist, also kann man die Eingabe in 10-g-Schritte ändern, so daß der Wertebereich der einfachen Genauigkeit ausgereizt wird.

100*BMI=10000*m[kg]/(l[cm]*l[cm]) 

Durch die Multiplikation mit 100 ist das Ergebnis auf 2 Stellen nach dem Komma genau.

Wort TOS 2 3 4 5
: BMI m l
10000 10000 m l
m* dh dl l
rot l dh dl
dup l l dh dl
* l2 dh dl
um/mod bmi rest
nip bmi
;

Das Wort gilt so jedoch nur für Längen kleiner als 1.88 m, weil sonst das Quadrat die 32000-er Grenze sprengt.