1ステップあたりの歩行者数の算出

現在、「artisocで始める歩行者エージェントシミュレーション」をもとに、
以下のコードで1ステップあたりに発生する歩行者数を算出しようと試みました。

しかし、指定の数以上の人数が出現しているようでした。

「artisocで始める歩行者エージェントシミュレーション」には、
以下のコードで1ステップあたりにエージェントが発生する確率と書いてありました。

赤字の解釈は間違っていますでしょうか。

もし、よろしければ、
1ステップあたりに発生する歩行者数
のコードをお教えいただきたいです。

何卒よろしくお願いいたします。

Dim 新しい歩行者 As Agt
If Universe.Hito発生率_RED > Rnd() Then
新しい歩行者 = CreateAgt(Universe.Field.Hito_RED)
新しい歩行者.X = MY.X
新しい歩行者.Y = MY.Y
End if