Mathematica画各类贝塞尔函数

分别用两种方法绘制贝塞尔函数图象，第一种阶数从0到4，第二种阶数从1到5.

(*两种方法绘制多阶第一类贝塞尔函数*) Plot[{BesselJ[0, x], BesselJ[1, x], BesselJ[2, x], BesselJ[3, x],BesselJ[4, x]}, {x, 0, 10}] Plot[Table[BesselJ[n, x], {n, 5}], {x, 0, 15}]

  http://s1/mw690/769a711bgdb6caf0b8670&690 http://s3/mw690/769a711bgdb6cb8f9d8d2&690

(*两种方法绘制多阶第二类贝塞尔函数*) Plot[{BesselY[0, x], BesselY[1, x], BesselY[2, x], BesselY[3, x], BesselY[4, x]}, {x, 0, 15}] Plot[Table[BesselY[n, x], {n, 5}], {x, 0, 15}]

  http://s2/mw690/769a711bgdb6cbfbeee61&690 http://s5/mw690/769a711bgdb6cc23f6384&690

(*两种方法绘制多阶第一类变形贝塞尔函数*)

Plot[{BesselI[0, x], BesselI[1, x], BesselI[2, x], BesselI[3, x], BesselI[4, x]}, {x, -5, 5}] Plot[Table[BesselI[n, x], {n, 5}], {x, -5, 5}]

 http://s11/mw690/769a711bg7c57ad228cda&690 http://s15/mw690/769a711bgdb6cc37b741e&690

(*两种方法绘制多阶第二类变形贝塞尔函数*) Plot[{BesselK[0, x], BesselK[1, x], BesselK[2, x], BesselK[3, x], BesselK[4, x]}, {x, 0, 5}] Plot[Table[BesselK[n, x], {n, 5}], {x, 0, 5}]

 http://s8/mw690/769a711bgdb6cc58686f7&690 http://s13/mw690/769a711bgdb6cc5e57e3c&690

(*绘制多阶第三类贝塞尔函数*) Plot[{Abs[HankelH1[0, x]], Abs[HankelH1[1, x]], Abs[HankelH1[2, x]], Abs[HankelH1[3, x]], Abs[HankelH1[4, x]]}, {x, 1, 5}] Plot[Table[Abs[HankelH1[n, x]], {n, 5}], {x, 1, 5}]

http://s3/mw690/769a711bgdb6cc7c3bcd2&690 http://s5/mw690/769a711bgdb6cd138ee84&690