artisoc Cloudの集合型から要素番号を指定し、取り出す方法。
プログラミング初心者です。現在artisoc4のモデルをartisoc cloudに言おうしようと思い作業している最中なのですが、artisoc Cloudでは要素番号を指定し、取り出すことができないと知りました。
現在、車両の出発地点をネットワークに含まれるノードからランダムに設定したいと思っているのですが、なにかいい方法はありませんか。日本語が下手で申し訳ありません。一応下にartisoc4で書いたコードを載せておきます。
Dim network As Agtset
MakeAgtSet(network,Universe.city.cross)
Dim num As Integer //交差点数
num=countAgtset(network)
Dim start As Agt
start =GetAgt(network, Int(Rnd()*(num-1))+1 )//networkからランダムに交差点を取得してstartに割り当てる
My.X=start.X
My.Y=start.Y
My.start=start.ID
My.current = start.ID
Dim goal As Agt
goal = GetAgt(network, Int(Rnd()*(num-1))+1) //goalも同様に設定
My.goalAgt=goal
My.goal=goal.ID
My.flag = true
My.steps = 0
プログラミング初心者です。現在artisoc4のモデルをartisoc cloudに言おうしようと思い作業している最中なのですが、artisoc Cloudでは要素番号を指定し、取り出すことができないと知りました。
現在、車両の出発地点をネットワークに含まれるノードからランダムに設定したいと思っているのですが、なにかいい方法はありませんか。日本語が下手で申し訳ありません。一応下にartisoc4で書いたコードを載せておきます。
Dim network As Agtset
MakeAgtSet(network,Universe.city.cross)
Dim num As Integer //交差点数
num=countAgtset(network)
Dim start As Agt
start =GetAgt(network, Int(Rnd()*(num-1))+1 )//networkからランダムに交差点を取得してstartに割り当てる
My.X=start.X
My.Y=start.Y
My.start=start.ID
My.current = start.ID
Dim goal As Agt
goal = GetAgt(network, Int(Rnd()*(num-1))+1) //goalも同様に設定
My.goalAgt=goal
My.goal=goal.ID
My.flag = true
My.steps = 0
