エージェントをランダムに配置する方法

例えば、

PointエージェントにCreateFlag（ブール型）を追加し、

Universeルールに下記の関数を追加して、CreateFlagを指定した数(n)だけTrueにして、Pointルールで住民エージェントを生成すればよいと思います。

--- ここから ---

// PointのCreateFlagにn個をTrueにする

Sub set_create_flag(n As Integer)

{

Dim pointAgt As Agt

Dim ct As Integer

Dim r As Integer

ct = CountAgt(Universe.Map.Point)

Do While(True)

r = CInt(Rnd() * ct)

pointAgt = Universe.Map.Point(r)

If pointAgt.CreateFlag == False Then

pointAgt.CreateFlag = True

PrintLn("Point ID:" & CStr(r))

n = n - 1

End If

If n == 0 Then

Break

End If

Loop

}

返信ありがとうございます。CreateFlagを追加し、Universeに教えて頂いたルールを入れました。ここで住民エージェントを生成するpointエージェントのルールは現在下に示すようにしていますが、教えて頂いたルールに伴い、ランダムな100ポイントに住民エージェントを生成させるにはどのようにpointエージェントのルールを書き直せば良いか教えて頂きたいです。よろしくお願いいたします。

If My.ID == 529 And GetCountStep() ==1 Then

personAgt = CreateAgt(Universe.Map.住民)

personAgt.X = My.X

personAgt.Y = My.Y

personAgt.RouteArray = @dijkstra(My.ID,"4")

personAgt.RouteCount = 1

End If

If My.CreateFlag == True And GetCountStep() ==1 Then

・・・

My.CreateFlag = False

End If

と書けばよいと思います。