Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

Re: Graphics--Need Help: How to show legends for graphics under Show Command?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg71263] Re: Graphics--Need Help: How to show legends for graphics under Show Command?
  • From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
  • Date: Sun, 12 Nov 2006 06:48:03 -0500 (EST)
  • Organization: The Open University, Milton Keynes, UK
  • References: <ej43jg$rc4$1@smc.vnet.net>

abdou.oumaima at hotmail.com wrote:
> Hello MathGroup,
> 
> I'm triying to show legend to all my graphics functions but still unable to do it. Hereby a sample of my code:
> 
> << Graphics`Legend`
> pp = Plot[Sin[x], {x, -Pi/2, Pi/2}, DisplayFunction -> Identity, PlotStyle -> Hue[0.6]];
> pm = Plot[Cos[x], {x, Pi/2, 3 Pi/2}, DisplayFunction -> Identity, PlotStyle -> Hue[0.8]];
> Show[{pp, pm}, DisplayFunction -> $DisplayFunction];
> ShowLegend[%, Sin, Cos]
> 
> How can I show legends or labels for all my graphics please. For Cosinus Function put "Cos (x) "  and Sinus function graphic put "Sin (x) ".
> 
> Any suggestion will veryyyyyyyyyyy welcome!
> 
> Cheers.
> Lian.
> (http://lian.blog-center.com/)
> 
> Link to the forum page for this post:
> http://www.mathematica-users.org/webMathematica/wiki/wiki.jsp?pageName=Special:Forum_ViewTopic&pid=15268#p15268
> Posted through http://www.mathematica-users.org [[postId=15268]]
> 
> 
A quick and dirty example/fix:

<< "Graphics`Legend`"
pp = Plot[Sin[x], {x, -Pi/2, Pi/2},
     DisplayFunction -> Identity, PlotStyle ->
      Hue[0.6]];
pm = Plot[Cos[x], {x, Pi/2, 3*(Pi/2)},
     DisplayFunction -> Identity, PlotStyle ->
      Hue[0.8]];
g = Show[{pp, pm}];
ShowLegend[g, {{{Graphics[{Line[{{0, 0}, {1, 0}}]}],
       {Sin[t]}}, {Graphics[{Line[{{0, 0}, {1, 0}}]}],
       {Cos[t]}}}, LegendPosition -> {1.1, 0},
     LegendSize -> {1.1, 0.5}, LegendShadow -> None}];

HTH,
Jean-Marc


  • Prev by Date: Re: Re: Re: Simplifying in Mathematica
  • Next by Date: Re: are there any methods of figuring out how "large" a piece of typeset textual data will be?
  • Previous by thread: Re: Graphics--Need Help: How to show legends for graphics under Show Command?
  • Next by thread: Re: Graphics--Need Help: How to show legends for graphics under Show Command?