用mathematica计算和画图比较以下习题 用J0(αx)和J1(αx)表示J4(αx) 给出mathematica代码

以下是用Mathematica计算和画图比较J4(αx)的代码，其中使用了J0(αx)和J1(αx)表示J4(αx)：

(* 定义变量 *)
α = 2;
x = Range[0, 15, 0.1];

(* 计算J0和J1 *)
J0 = BesselJ[0, α*x];
J1 = BesselJ[1, α*x];

(* 计算J4 *)
J4 = 1/8*(J0 - 4*J1 + 3*BesselJ[4, α*x]);

(* 绘制图形 *)
Plot[{J4, BesselJ[4, α*x]}, {x, 0, 15}, PlotLegends -> {"J4", "BesselJ[4,α*x]"}]

这段代码首先定义了变量α和x，其中α为常数2，x为从0到15以0.1为步长的一组数。然后使用BesselJ函数计算J0(αx)和J1(αx)，并利用这两个函数计算J4(αx)。最后，使用Plot函数将J4(αx)和BesselJ[4,α*x]画在同一张图上进行比较。