Mathematica高级篇（一）实际采购批量偏离EOQ对成本的影响

采购时有时候采用EOQ求采购订单批量。我用Mathematica推导EOQ公式。

In[1]:= vc = d s/Q + h c Q/2; #这里是成本
        y = D[vc, Q];         #这是求导，这句可以不写，下面解决方程中已经写了。
        Solve[D[vc, Q] == 0, Q]  #这里解方程

Out[1]= {{Q -> -((Sqrt[2] Sqrt[d] Sqrt[s])/(Sqrt[c] Sqrt[h]))}, {Q -> (
         Sqrt[2] Sqrt[d] Sqrt[s])/(Sqrt[c] Sqrt[h])}}

如果代值，很方便的。

In[2]= d = 6000;
       c = 30;
       h = 7/30;
       s = 125;
       Q = N[Sqrt[2 d s] /Sqrt[h c] ]

Out[2]=  462.91

现在如果确定实际采购批量对成本的影响分析呢？请大家下载我的的程序。

https://download.csdn.net/download/bowen2006/12456151  这是PDF版

https://download.csdn.net/download/bowen2006/12454567 这是nb版

https://blog.csdn.net/bowen2006/article/details/106333301 这是运用Julia计算的结果。

根据我的内容，能否求出实际采购批量对成本的弹性？