问题描述：
用mathematica实现对含有概率密度函数的积分（用于计算期望值）,并且绘图,最举个编程例子.
这是我的程序调试结果,不知道为什么不能呈现正常的曲线图,求各位指教,/>
这是我的程序调试结果,不知道为什么不能呈现正常的曲线图,求各位指教,/>
问题解答：
我来补答
是你的函数定义语法错了,函数定义方括号里面的变量要有下划线,要像下面这样的.
f[s_] := Integrate[(1.2*r - 500 - 0.2*s)*
PDF[NormalDistribution[10000, 1500], r], {r, 0, s}] +
Integrate[(s - 500)*PDF[NormalDistribution[10000, 1500], r], {r, s,
20000}];Plot[f[s], {s, 0, 10000}]
f[s_] := Integrate[(1.2*r - 500 - 0.2*s)*
PDF[NormalDistribution[10000, 1500], r], {r, 0, s}] +
Integrate[(s - 500)*PDF[NormalDistribution[10000, 1500], r], {r, s,
20000}];Plot[f[s], {s, 0, 10000}]
展开全文阅读