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.