MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: labeling curves on a plot


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.


  • 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