現在、「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
Universe.Hito発生率_REDが0から1の値を取るのであれば、
乱数の値と比較して、条件式がTrueの場合、エージェントを1人生成することができると思います。
CreateAgentMultiを使うと、指定した数のエージェントを一度に生成できます。