求助重积分的解法，谢谢

东西南北

最近遇到一个重积分，积分中涉及到误差函数，想用数值法求解，可惜程序太复杂了。同时我想讨论R随p的变化曲线，希望高手帮忙，指点一下，谢谢

TBE_Legend

1. \[Sigma] = 1/10;
   
2. f[p_?NumericQ] :=
   
3.   NIntegrate[
   
4.    Erfc[Sqrt[p ] Cos[\[Phi]]] 1/(Sqrt[2 Pi] \[Sigma])
   
5.      E^((-2 \[Phi]^2)/\[Sigma]^2), {\[Phi], -Pi, Pi}];
   
6. Plot[f[x], {x, 0, 10}, PlotRange -> All, Frame -> True]

复制代码

TBE_Legend

1. Clear["Global`*"]
   
2. f[p_?NumericQ, \[Sigma]_?NumericQ] :=
   
3.   NIntegrate[
   
4.    Erfc[Sqrt[p ] Cos[\[Phi]]] 1/(Sqrt[2 Pi] \[Sigma])
   
5.      E^((-2 \[Phi]^2)/\[Sigma]^2), {\[Phi], -Pi, Pi}];
   
6. Plot3D[f[p, \[Sigma]], {p, 0, 10}, {\[Sigma], 0, 10},
   
7. PlotRange -> All, AxesLabel -> Automatic]

复制代码

东西南北

TBE_Legend 发表于 2013-1-22 13:06

继续求助，请问画二维曲线时，当Sigma取不同的离散值时该用什么命令啊？我想把不同的sigma时的曲线画到同一个坐标轴中，谢谢