附录 运输成本与持货成本主导型采购方式决策模拟程序

%本文件为采购管理研究型课程订单采购与计划采购部分，探讨采购方式选择
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）