ビジネスゲーム 19

「20%の確率で納期遅れをおこす」という設定を追加する。

late=rnd(100)+1

if late[i]<21 then lv[i]=b[i]:b[i]=0

if late[i-1]<21 then b[i]=b[i]+lv[i-1]

【プログラム】

テストプレイを5回繰り返す。在庫費用の合計は56200,106800,74100,75900,68700。

【実行画面】

機会損失は最大時93600円で、そのときの費用全体における割合は87.6%だった。

初期在庫を4個から14個に変更してみよう。テストプレイを5回繰り返す。在庫費用の合計は84000,72900,61200,86400,87600。

機会損失の割合をおさえることに成功したが、費用自体に大差は無いようだ。