肉食動物、草食動物、植物、種子の 4 種類のキャラクターによる食物連鎖の様子を、エクセルVBAでシミュレーションしてみました！

イメージ

といっても、イメージが湧かないと思いますので、最初にシミュレーションの一部を示します。

上の画像のように、4 種類のマーク（キャラクター）が干渉しあい、食物連鎖を起こしていく様子をシミュレートしました。

元ネタ

ここで元ネタがあることを示しておきます。

上の動画で行っていることを、エクセル上で再現した感じです。

キャラクターの説明

ここからキャラクターの説明をしていきます。キャラクターは全部で 4 種類です。

　▼ 肉食動物（赤）

上の画像は肉食動物を表すマークです。
肉食動物は、草食動物を食べます。
草食動物を 3 匹食べると、肉食動物は 1 匹増えます。
時間 40 フレーム捕食がなければ、種子を 6 つ残して消滅します。

　▼ 草食動物（黄） 

上の画像は草食動物を表すマークです。
草食動物は、植物を食べます。
植物を 2 つ食べると、草食動物は 1 匹増えます。
時間 40 フレーム捕食がなければ、種子を 4 つ残して消滅します。

　▼ 植物（黄） 

上の画像は植物を表すマークです。
植物は草食動物（黄）に捕食されることによってのみ、消滅します。

　▼ 種子（灰）

上の画像は種子を表すマークです。
種子は時間 10 フレームで植物に成長します。
種子は植物に成長することによってのみ、消滅します。

肉食動物と草食動物はランダムウォークします。
植物と種子は動きません。

シミュレーション

それではシミュレーションの様子をお見せしましょう。

下はそれぞれのキャラクターの個体数の時間変化を示したグラフです。

それぞれの個体数が周期的に変化する様子がみてとれますね！

エクセルファイル

今回はボタン一つでシミュレーションできるように、プログラムを組みました。

プログラムの内容も含めて、ぜひお試しください。

―――――
ここより下にはエクセルファイルのみございます。