MathGroup Archive 2002

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

Search the Archive

Re: Arrow pointers rather than Legend

  • To: mathgroup at smc.vnet.net
  • Subject: [mg36608] Re: Arrow pointers rather than Legend
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Fri, 13 Sep 2002 23:33:05 -0400 (EDT)
  • Organization: Universitaet Leipzig
  • References: <alrtdl$hb2$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

Needs["Graphics`Arrow`"]

Plot[{Sin[x], Cos[x]}, {x, 0, 2Pi},
  Epilog -> {{GrayLevel[0.9], Rectangle[{3.75, 0.25}, {5.2, 0.9}]}, 
      Arrow[{4, 0.75}, {2, Sin[2]}], Text[Sin[x], {4, 0.75}, {-1, 0}],
       Arrow[{4, 0.5}, {2, Cos[2]}], Text[Cos[x], {4, 0.5}, {-1, 0}]}]

Regards
  Jens

JM wrote:
> 
> Instead of using Legend in plots with multiple series is there a way
> to have arrows with a text at the end identifying the different
> series? The reason I'd like this is that the legend is a bit 'bulky'
> looking and I'd want something tidier.
> 
> I know there is an Arrow package but I think you'd need to manually
> enter each start and end point of each arrow - is there a simple
> command to do this?
> 
> Also - is there a way to adjust the legend font size? I.e. make it
> small so that it doesn't interfere with data series.
>    _
>   |\
>     \
>      \
>       \
>        \
>         thankyou


  • Prev by Date: AW: nth roots
  • Next by Date: Re: Using Slide View in mathematica 4.2
  • Previous by thread: Arrow pointers rather than Legend
  • Next by thread: RE: Arrow pointers rather than Legend