2.5 Mathematica

Mathematica では BesselJ[$n$,x] で $n$ 次の Bessel 関数が計算できる。

グラフを描く

Plot[BesselJ[0,x],{x,0,10}]
Plot[Evaluate[Table[BesselJ[n, x], {n, 0, 10}]],{x,0,10}]

でグラフを描いたり³。

以下のようにして零点を必要な精度だけ計算することもできる。

FindRoot[BesselJ[0,x]==0,{x,2},WorkingPrecision->50]
FindRoot[BesselJ[0,x]==0,{x,2},WorkingPrecision->50,AccuracyGoal->40]
Table[FindRoot[BesselJ[0,x]==0,{x,m},WorkingPrecision->50],{m,2,20}]