next up previous
Next: 2.6 gnuplot Up: 2 色々な環境での計算 Previous: 2.4 Java

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}]

でグラフを描いたり3

\includegraphics[width=10cm]{Bessel.eps}

以下のようにして零点を必要な精度だけ計算することもできる。
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}]


next up previous
Next: 2.6 gnuplot Up: 2 色々な環境での計算 Previous: 2.4 Java
Masashi Katsurada
平成18年11月21日