Mathematica Manipulate[] for plotting a function of several variables

Question

This is a sample snippet from Mathematica documentation for plotting Bessel for various n:
Plot[Evaluate[Table[BesselJ[n, x], {n, 4}]], {x, 0, 10}, 
 Filling -> Axis]

How can you use Manipulate[] to animate this over both x and n (so if I wanted a slider for x and n). I've tried this:
Manipulate[
 Plot[Evaluate[Table[BesselJ[n, x], {n, 4}]], {x, 0, xmax}, 
  Filling -> Axis],
 {xmax, 0, 10 , Appearance -> "Open"}
 ]

But get this error:

kglr · Accepted Answer

Replace 0 in  {xmax, 0, 10 , Appearance -> "Open"} with a small number (say, 10.^-5) to avoid the error:
Manipulate[Plot[BesselJ[n, x], {x, 0, xmax}, Filling -> Axis, 
  PlotRange -> {{0, 10}, {-.7, .7}}], 
{xmax, 10.^-5, 10, Appearance -> "Open"}, 
{n, 1, 4, 1}]

Use TogglerBar as control to select subsets of Range[5] to as the parameter n:
Manipulate[Plot[Evaluate[BesselJ[#, x] & /@ n], {x, 0, xmax}, 
  Filling -> Axis, 
  PlotRange -> {{0, 10}, {-.7, .7}}], 
{{xmax, 6}, 10.^-5, 10, Appearance -> "Open"},
{{n, {1, 3}}, Range[5], TogglerBar}]

Mathematica Manipulate[] for plotting a function of several variables

One Answer

Add your own answers!

Ask a Question