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>
- Reply-to: kuska at informatik.uni-leipzig.de
- 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 ->
TraditionalForm,
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.