附錄 運輸成本與持貨成本主導型采購方式決策模擬程序

%本文件為采購管理研究型課程訂單采購與計劃采購部分，探討采購方式選擇
clear
clc
clf
%變量名稱P開始的一般與計劃采購相關，O開始的一般與訂單采購相關
day=100；%定義討論的總天數，周期
distance=100；%定義運輸距離
pfeepurchasingonce=180；%定義批量訂購的單次訂貨費
ofeepurchasingonce=5；%定義訂單采購的單次訂貨費
pfeetransport=0.3；%批量運輸費率
ofeetransport=0.36；%非批量運輸費率
feestock=1.00；%每噸鋼材每天存儲費
feeabsence=5；%每噸鋼材每天缺貨損失費
averagedemand=10；%平均每日需求量
peoq=sqrt（2*averagedemand*pfeepurchasingonce/feestock）；%計劃采購的經
濟訂貨批量
peoq=round（peoq/10）*10；
pcycle=peoq/averagedemand；%計劃采購周期
pcycle=round（pcycle）；
for k=1：100%多次用不同的隨機需求進行模擬
    demand=20*rand（1，day）；%生成隨機需求
    for i=1：day  %四舍五入，保留一位小數
    demand=round（demand*10）/10；
    end
    %批量采購量，批量采購訂貨費用，批量采購運輸費用
    ppurchasing=zeros（1，day）；
    ppurchasingcost=zeros（1，day）；
    ptansportcost=zeros（1，day）；
    for i=1：pcycle：day
        ppurchasing（i）=peoq；
        ppurchasingcost（i）=pfeepurchasingonce；
        ptansportcost（i）=ppurchasing（i）*distance*pfeetransport；
    end
    pstock（1）=ppurchasing（1）-demand（1）；%庫存量
    pholdcost（1）=pstock（1）*feestock；%持貨成本
    pabsencecost=0；%缺貨成本
    for i=2：day
        pstock（i）=ppurchasing（i）+pstock（i-1）-demand（i）；
        if pstock（i）＞=0
            pholdcost（i）=pstock（i）*feestock；
        else
            pholdcost（i）=0；
            pabsencecost（i）=-pstock（i）*feeabsence；
        end
      end
      pcost（k）=sum（ppurchasingcost）+sum（ptansportcost）+sum（phold-
cost）+sum（pabsencecost）；%計劃采購的總費用
      opurchasing=demand；%訂單采購量即為每日的需求量
      for i=1：day
           otransportcost（i）=opurchasing（i）*distance*ofeetransport；%
訂單采購運費
      end
      ocost（k）=sum（otransportcost）+ofeepurchasingonce*day；%訂單采購
的總費用
  end
  plot（pcost，′--k′，′linewidth′，2）；
  hold on
  plot（ocost，′k-′）；
  fanchang=0；%統計訂單采購方式費用大于計劃采購方式的次數
  for j=1：day
      if pcost（j）＜ocost（j）
        fanchang=fanchang+1；
      end
  end
  fanchang
  jieyuelv=（sum（pcost）-sum（ocost））/sum（pcost）%訂單采購費用節約率
  %控制輸出圖形
  title（′計劃采購與訂單采購成本支出比較′，′FontSize′，16）
  xlabel（′模擬次數′，′FontSize′，16）
  ylabel（′采購費用合計（元）′，′FontSize′，16）
  legend（′計劃采購方式′，′訂單采購方式′，2）