=== 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 | |
| * | l<sup>2</sup> | 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.