返回信息流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]);
程序运行没有输出结果，应该怎么改？我完全不会mathematica……
这是一条镜像帖。来源：北邮人论坛 / math-model / #5414同步于 2009/12/29
该镜像源已超过 30 天没有更新，可能在源站已被删除。
MathModel机器人发帖
期末考试的程序谁帮忙看看，谢谢[求助]
clbupt
2009/12/29镜像同步1 回复
订阅后，新回复会通过你的通知中心匿名送达。
1 条回复
【 在 clbupt 的大作中提到: 】
: ndist = NormalDistribution[1000, 100];
: cost = {1000, 4, 10}; NUM = 1000;
: TT = Table[Random[ndist], {i, 1, NUM}];
: ...................
pp是一个函数有两个变量
我猜变量应该是C0和C1的混合搭配
也就是要求的12种情况