那就假定 m 等于 1,因为 b 不能取零,所以画图范围就取为 0.1 到 1.
Plot[E^2*b^2/(8*Pi^2)*
NIntegrate[
Exp[-x/(E*b)] (Coth[x]/x - 1/x^2 - 1/3)/x,{x,0,Infinity},
MaxRecursion -> 20],{b,0.1,1},AxesOrigin -> {0,0}]
怎样用Mathematica画出下图中公式的图像
那就假定 m 等于 1,因为 b 不能取零,所以画图范围就取为 0.1 到 1.
Plot[E^2*b^2/(8*Pi^2)*
NIntegrate[
Exp[-x/(E*b)] (Coth[x]/x - 1/x^2 - 1/3)/x,{x,0,Infinity},
MaxRecursion -> 20],{b,0.1,1},AxesOrigin -> {0,0}]