Maple では、BesselJ( ,x) で、 次の Bessel 関数 が計算できる。
グラフを描く |
plot(BesselJ(0,x),x=0..10) plot([seq(BesselJ(n,x),n=0..5)],x=0..10) あるいは plot({seq(BesselJ(n,x),n=0..5)},x=0..10) |
の正の零点の小さい方から 番目 を 表す BesselJZeros( , ) があり、 必要な精度だけ計算することもできる。
evalf[50](BesselZeros(0,1)) evalf[50](BesselZeros(0,1..20)) |
(Maple は便利だ…)
桂田 祐史