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$

closed as off-topic by rhermans, MarcoB, Bob Hanlon, LCarvalho, m_goldberg Aug 23 '17 at 23:23

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – rhermans, MarcoB, Bob Hanlon, LCarvalho, m_goldberg
If this question can be reworded to fit the rules in the help center, please edit the question.

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

enter image description here

$\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

$\endgroup$

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