例えば、任意のX座標上について、Aの場合 Agt_Step{ If My.X == 任意のX座標 Then Universe.任意のX座標にいるエージェント数 = Universe.任意のX座標にいるエージェント数 + 1 End if }
同じくBの場合、 Universe.Step_End{ Dim i As Integer For i = 0 to CountAgt(Universe.hiroba.hito) -1 If Universe.hiroba.hito(i).X == 任意のX座標 Then Universe.任意のX座標にいるエージェント数 = Universe.任意のX座標にいるエージェント数 + 1 End if Next i }
例えば、任意のX座標上について、Aの場合 Agt_Step{ If My.X == 任意のX座標 Then Universe.任意のX座標にいるエージェント数 = Universe.任意のX座標にいるエージェント数 + 1 End if }
同じくBの場合、 Universe.Step_End{ Dim i As Integer For i = 0 to CountAgt(Universe.hiroba.hito) -1 If Universe.hiroba.hito(i).X == 任意のX座標 Then Universe.任意のX座標にいるエージェント数 = Universe.任意のX座標にいるエージェント数 + 1 End if Next i }