怎样用Mathematica画出下图中公式的图像M为可调参数,想得出B与欧米伽的关系图.或者怎样用FORTRAN编这个广义积分.

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/10 06:23:08
怎样用Mathematica画出下图中公式的图像M为可调参数,想得出B与欧米伽的关系图.或者怎样用FORTRAN编这个广义积分.

怎样用Mathematica画出下图中公式的图像M为可调参数,想得出B与欧米伽的关系图.或者怎样用FORTRAN编这个广义积分.
怎样用Mathematica画出下图中公式的图像
M为可调参数,想得出B与欧米伽的关系图.或者怎样用FORTRAN编这个广义积分.

怎样用Mathematica画出下图中公式的图像M为可调参数,想得出B与欧米伽的关系图.或者怎样用FORTRAN编这个广义积分.
那就假定 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}]