(s, S)随机贮存模型

(s, S)随机贮存模型：
在(s, S)随机贮存模型中，量r 是一随机变量，ρ(r)表示随机变量r 的概率密度函数；商店在一周可能支付的费用有：每次的订货费c0 ，其取值与进货数量无关；每件商品在一周的贮存费c1。a 、b 分别表示一件商品的购进价格和售出价格。
我们倾向于将盘点周期与进货周期（这里从统计意义上加以理解），你试着通过计算机模拟的方法计算如下算例的最优进货策略：
需求量r 服从期望值为 1000、均方差为 200 的正态分布，b − a = 1，c0分别取 10、100、10000，
c1 分别取 0.1、0.3、0.7、2.0 时，即总共3× 4 = 12种情形下最优的(s, S)取值。
参考程序：(mathematica)
<<StatisticsNormalDistribution
ndist=NormalDistribution[1000,100];
cost={1000,4,10}; NUM=1000;
TT=Table[Random[ndist],{i,1,NUM}];
pp[x_,y_]:=(Ppp=0;qq=0; For[ii=1,ii≤NUM,ii=ii+1, If[qq<x,Ppp=Ppp-cost[[1]];qq=y];
If[qq<TT[[ii]],Ppp=Ppp+cost[[3]]*qq; qq=0,Ppp=Ppp+cost[[3]]TT[[ii]]-cost[[2]](qq-TT[[ii]]);
qq=qq-TT[[ii]]] ]; Return[Ppp]);