この機能を試すには、ライブサイトにアクセスしてください。

他エージェントとの情報共有について

先日、「Thenの後にENDが足りないというエラー」について質問させて頂いたものです。

現在、MASに掲載されているレシピブックを参考にダイクストラ法を用いて最短避難経路を算出するモデルを作成しています。

IDが6のポイントにPersonエージェントが到達した際、Personエージェントは建物から避難できたとみなして削除するプログラムを作成したいです。

現在避難者エージェント(Personエージェント)を4人生成して最短経路を探索させているのですが、一つ一つのエージェントが独立しているため、それぞれで経路を探索しているので4人全員が避難を終了するのに時間がかかってしまいます。

一つの避難者エージェントが最短経路を探索できた場合、他エージェントは探索をやめてその最短経路を辿るようにするプログラムを作成したいのですがどのように作成すればよいでしょうか。よろしくお願いします。

21件の回答0件の返信

コメント（21）

2024年11月14日

シミュレーションの前提が分からないのでズレているかもしれませんが、

例えば、4人の避難者が移動していて、皆が出口を探しているとします。

そのうち１人が出口を見つけると、大声で他の避難者に出口を教えた場合、

他の避難者は、出口を目的地として最短経路を設定して移動すればよいと思いますが、いかがでしょうか？

2024年12月19日

返信先

Do While文は下記のように記述するとよいと思います。

Do While True

newTargetPointAgt = Universe.Map.Point(CInt(Rnd() * CountAgt(Universe.Map.Point)))

If newTargetPointAgt.Layer == currentLayer Then// ' 同じレイヤに絞る

Break

End If

Loop

1月08日

返信先

Do　While文を書き替えたらエラーが消え動作するようになったのですが少し動作した後に以下のようなエラー文が出るようになりました。

初期化はstreetのルール内でよいのでしょうか。また初期化する際はどのようなコードになるのでしょうか。よろしくお願いします。

1月08日

返信先

確認したところ、Personルールの100行目にて、

newRoute = @dijkstra(targetPointAgt.ID, CStr(newTargetPointAgt.ID) & "," & CStr(newTargetPointAgt2.ID))

targetPointAgt.ID とnewTargetPointAgt.ID

もしくはtargetPointAgt.ID と newTargetPointAgt2.ID

の場合にエラーが出るようなので、これを回避すればよいと思います。