存储论——经济订货批量EOQ的R图解

经济订货批量 economic order quantity (EOQ)，通过平衡采购进货成本和保管仓储成本核算，以实现总库存成本最低的最佳订货量。经济订货批量是固定订货批量模型的一种，可以用来确定企业一次订货（外购或自制）的数量。当企业按照经济订货批量来订货时，可实现订货成本和储存成本之和最小化。

一、EOQ批量计算

某商品单价成本为 10元，每年的保管费为成本的 1元，每次的订购费为 5 元，已知对该商品的需求是 1000 件/年，不允许缺货。假设该商品的进货可以随时实现。问怎样组织进货，才能最经济？

dev.off()
K=10          #产品单价
C1=1   #存储成本
C3=5        #订购费用
R=1000        #单位时间需求量

Q=(2*C3*R/C1)^0.5 
C=(2*C1*C3*R)^0.5 
cat("最佳定货量:",Q,'\n')
cat("最小费用:",C,'\n')

二、经济订货批量的R图示

x=0:300
y1=C3*R/x
y2=C1*x/2
y3=C1*x/2+C3*R/x

plot(y3~x,pch=15,col="DarkTurquoise",xlim=c(0,300),xlab="订货量Q",ylim=c(0,300),ylab="成本",main="经济订货批量")
points(x,y1,pch=16,col="DeepPink",cex=1)
points(x,y2,pch=17,col="RosyBrown",cex=1)

lines(x,y3,col="DarkTurquoise",lty=4)
lines(x,y1,col="DeepPink",lty=2)
lines(x,y2,col="RosyBrown",lty=1)  
legend("topright",c("总成本","采购成本","储存成本"),col=c("DarkTurquoise","DeepPink","RosyBrown"),text.col=c("DarkTurquoise","DeepPink","RosyBrown"),pch=c(15,16,17),lty=c(1,2,3))

参考文献

经济批量模型图解
R语言：多个因变量时，如何在plot函数中画多条曲线