マルチエージェント・シミュレーション（２） シミュレーション論 Ⅱ 第７回 マルチエージェント・シミュレーション（２）

第６回のレポート解答例 マルチエージェント・シミュレーションの特徴＋利点をまとめ、３点以上述べてください （１） 特徴：比較的単純な要素＋局所的相互作用によるモデル化 利点：プログラミングが単純で明確、要素数の増減や相互作用の追加・変更が容易 （２） 特徴：全体的な挙動の一括した記述や大域的制御の不要なボトムアップ的モデル 利点：トップダウン的モデルに比べてモデルの記述や制御が容易 （３） 特徴：個体差、エージェントの異種性の導入が容易 利点：モデルの複雑な拡張が可能、現象の複雑さの要因を解析できる

今回の内容 マルチエージェント・シミュレーションの一例として、ごく簡単な「マクロ」を用いた２次元セルオートマトンの作成をおこなう

Excelによるライフゲームの作成 Excelを用いて、2次元セルオートマトンの代表例である「ライフゲーム」を作成する

ライフゲームの概要 各セルには「生」「死」の2状態がある 各セルは自分と周囲の計9セルの状態によって生死が決定される 生死のルール： 誕生 誕生  死んでいるセルの周囲に3つの生きているセルが あれば次の世代では生きる（誕生する）。 維持  生きているセルの周囲に2つか3つの生きている セルがあれば次の世代でも生き残る。 死亡  上以外の場合には次の世代では死ぬ。

ライフゲームの作成（１） Excelの全てのセルを選択し、「書式」→「列」→「幅」で「２」とする（正方形のセルを作る）

ライフゲームの作成（２） Ｂ２～Ｕ２１、Ｘ２～ＡＱ２１に20×20の枠を作成し、左側の枠に全て「0」を入力する

ライフゲームの作成（３） 右側の枠に左側の枠の次ステップの状態を記述する 0を死、1を生とし、ルールに従って生死を決定する Ｘ２セルに以下のように入力する =IF(SUM(A1:C3)=3,1,IF(AND(B2=1,SUM(A1:C3)=4),1,0)) 自分と周囲の計9セルで3セル生きていれば生、自分が生で周囲9セルで4セル生きていれば生、それ以外は死

ライフゲームの作成（４） 入力できたら右側の枠内全てにドラッグでコピー 枠線をコピーしたくないときは右下に出るボックスをクリックして「書式なしコピー」を選ぶとよい

ライフゲームの作成（５） 「マクロ」を用いて更新作業をおこなう 左枠の状態から次ステップの状態を右枠で計算→ 左枠へコピー この操作をマクロによって自動化する 「表示」→「ツールバー」→「Visual Basic」を選択 「セキュリティ」をクリックして「セキュリティレベル」を「中」にしておく 「コントロール　ツールボックス」ボタンを押す

ライフゲームの作成（６） ツールボックスの「コマンドボタン」をクリックし、適当な位置に貼り付ける

ライフゲームの作成（７） コマンドボタンを右クリックし、「プロパティ」を選ぶ （オブジェクト名）を「更新ボタン」、Captionを「更新」とする（できたらプロパティは閉じる）

ライフゲームの作成（８） 「Visual Basic」ツールバーの赤丸を押し、操作の記録をおこなう（マクロの記録） 「マクロ名」は「更新」とする 「右枠内全て（X2～AQ21）をコピー」→「B２セルを右クリック」→「形式を選択して貼り付け」→「値」→「Ｘ１セルをクリック」 以上ができたら四角い停止ボタンを押して記録を終了する

ライフゲームの作成（９） 「Visual Basic」ツールバーの「デザインモード」ボタンが押されていることを確認し、コマンドボタン（更新ボタン）をダブルクリックする 空白になっている「End Sub」の前に「更新」と記入 デザインモード ボタン

ライフゲームの作成（１０） デザインモードのウインドウを閉じ、Visual Basicツールバーの「デザインモード」ボタンを押して終了させる 左枠の適当な位置に「１」をいくつか入力し、「更新」ボタンを押して動くかどうか確認してみよう

ライフゲームの作成（１１） 左枠内を選択し、「書式」→「条件付き書式」でセルに色をつける フォントの色とセルのパターンを「０」のとき白、「１」のとき青とする 左枠内を選択し、「書式」→「条件付き書式」でセルに色をつける フォントの色とセルのパターンを「０」のとき白、「１」のとき青とする

ライフゲームの作成（１２） コントロールツールバーから「コマンドボタン」を選び、もう１つボタンを作成する 右クリック→「プロパティ」とし、 （オブジェクト名）を「クリアボタン」、Captionを「クリア」とする（できたらプロパティは閉じる）

ライフゲームの作成（１３） 「Visual Basic」ツールバーの「デザインモード」ボタンが押されていることを確認し、クリアボタンをダブルクリックする 空白になっている「End Sub」の前に「クリア」と記入

ライフゲームの作成（１４） ウインドウ左側の「標準モジュール」をダブルクリックし、「Module 1」をダブルクリックして開く 既にある「End Sub」の後に以下のように書く Sub クリア() 　　　Range(“B2:U21") = 0 End Sub

ライフゲームの作成（１５） デザインモードのウインドウを閉じ、Visual Basicツールバーの「デザインモード」ボタンを押して終了させる 左枠の適当な位置に「１」をいくつか入力し、「クリア」ボタンを押して全て「０」に戻るか試してみよう

ライフゲームの作成（１６） 以上でほぼ完成 適当に１を入力し、更新ボタンを何度か押して実行してみよう

様々な初期値で試してみよう 以下のような初期値で試してみよう

参考：製品普及モデル ライフゲームのシミュレーションを修正し、2種類の製品普及モデルも作成できる 　（X2セル）＝IF(AND(COUNTIF(A1:C3,1)<3,COUNTIF(A1:C3,2)<3),0, IF(COUNTIF(A1:C3,1)>COUNTIF(A1:C3,2),1, IF(COUNTIF(A1:C3,1)<COUNTIF(A1:C3,2),2, RANDBETWEEN(1,2))))

第７回のレポート ２次元セルオートマトンを利用したシミュレーションをおこなうなら、どのようなものをやってみたいか、概要を記述してください