Re: labeling curves on a plot

• To: mathgroup at smc.vnet.net
• Subject: [mg47928] Re: labeling curves on a plot
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Fri, 30 Apr 2004 19:27:08 -0400 (EDT)
• Organization: Universitaet Leipzig
• References: <c6s44s\$pco\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hi,

something like

Needs["Graphics`Arrow`"]

colors = {RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[0, 0, 1],
RGBColor[1, 1, 0], RGBColor[0, 1, 1]};

colors = {RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[0, 0, 1],
RGBColor[1, 1, 0], RGBColor[0, 1, 1]};
Plot[Evaluate[Table[BesselJ[i, x], {i, 0, 4}]], {x, 0, 10},
PlotStyle -> colors,
Epilog ->
Table[{colors[[i + 1]],
Arrow[{2i, BesselJ[i, 2i] + 0.25 + 0.05*i}, {2i, BesselJ[i,
2i]}],
Text[HoldForm[BesselJ[ii, x]], {2i,
BesselJ[i, 2i] + 0.25 + 0.075*i}, FormatType ->
TextStyle -> {FontFamily -> "Times"}]} /. ii -> i, {i, 0,
4}],
PlotRange -> All
]

Regards
Jens

Andrew Collier wrote:
>
> hello,
>
> could someone please give me some pointers on how to label individual
> curves on a plot. i am trying to achieve something like the plot on
> http://mathworld.wolfram.com/BesselFunctionoftheFirstKind.html where
> each of the curves is labelled "J0(x)", "J1(x)" etc.
>
> was mathematica use to the produce the plot on the above page? i would
> hope so... and if so, then how were the labels formatted so nicely?
>
> thanks for any help!
>
> best regards,
> andrew collier.

```

• Prev by Date: RE : 34.123*89 = 3036.95 (3036.947)
• Next by Date: on ColorFunction and combined images?
• Previous by thread: Re: labeling curves on a plot
• Next by thread: RE: labeling curves on a plot