0
$\begingroup$

The Plot is as given on the Mathematica website

Plot[
 Evaluate@Table[BesselJ[n, x], {n, 3}]
 , {x, 0, 15}
 , PlotStyle -> {Orange, Dashed, Thick}
 ]

enter image description here

$\endgroup$
4
$\begingroup$
Plot[Evaluate@Table[BesselJ[n, x], {n, 3}], {x, 0, 15}, 
 PlotStyle -> {Orange, Dashed, Thick},
 PlotLegends -> "Expressions"]

enter image description here

| improve this answer | |
$\endgroup$
1
$\begingroup$
Plot[
 Evaluate@Table[BesselJ[n, x], {n, 3}]
 , {x, 0, 15}
 , PlotStyle -> {Orange, Dashed, Thick}
 , PlotLegends -> Table[BesselJ[n, x], {n, 3}]
 ]

Mathematica graphics


Code and plots done in Mathemathica 11.1.1 on Win7

| improve this answer | |
$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.