このモデルに下のexcelファイルを出入力して初期値設定を行いたいのですがうまくいきません。正しい方法などあれば教えていただけると幸いです。生協.zipダウンロード:ZIP • 3KBseikyou map.csvダウンロード:CSV • 7KB
描画での初期値設定が上手くいかなかったため、Excelファイルで試したいと思っています。修正など多くをして頂きありがとうございます。
ポテンシャル法の正しい作成方法は、下記のレシピブックを参考にしてください。
p.6に記載されているとおりに初期値設定画面で定義すればよいですが、
もしExcel上で定義したい場合は、ファイル出力してcsvファイルを編集後、
ファイル入力で値を反映させることができます。
なお、いただいたモデルに誤りがあり、修正しました。
変更:
potential.inc で、Universe.Map をUniverse.Seikyou に全置換
誤字:
Universeルールで、Universe.Seikyo→Universe.Seikyou
誤字:
Universeルールで、Universe.Map→Universe.Seikyou
修正:
Personルールで、
If Universe.Seikyou.Floor(My.X,My.Y,0)<> Then
を
If Universe.Seikyou.Floor(My.X,My.Y,0)<> 0Then
に修正
誤記:
Universeルールで、Universe.Map→Universe.Seikyou
誤記:
Entranceルールにて、
のシングルクォートはダブルクォートで定義
personAgt.ShelfArray=""
→personAgt.ShelfArray=""
CStr(CInt(CountAgt(Universe.Seikyou.shel
f)*Rnd())) & '',''
→CStr(CInt(CountAgt(Universe.Seikyou.shelf)*Rnd())) & ","