Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1996
*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 1996

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

Search the Archive

Re: ShowLegend syntax: HELP!!

  • To: mathgroup at smc.vnet.net
  • Subject: [mg3164] Re: ShowLegend syntax: HELP!!
  • From: welter at .ti.com (Jason Welter)
  • Date: Fri, 9 Feb 1996 03:02:38 -0500
  • Organization: Texas Instruments
  • Sender: owner-wri-mathgroup at wolfram.com

In article <4fcd0t$9ea at dragonfly.wolfram.com>, fjl0014 at ucs.usl.edu says...
>
>Hi,
>
>I'm having a hard time figuring out the syntax for ShowLegend. I have four graphs
>created using LogListPlot. I want to put them together in one plot, with legends
>I read that Technical report on the package, but I'm still unable to do
>what I want to do. 
>I also looked at MultipleListPlot, but I can't get it to give a Log scale or
>a legend. Any help or hints will be greatly appreciated. Thanks in
>advance...
>
>-Fernando    fjl at usl.edu 
>
>

Here's some of my code that I used to draw 7 ListPlots in different colors and
create a Legend showing the different colors and plot numbers.

------------------------------------------------------------------------------

<<"c:\\math\\packages\\graphics\\legend.m"

legend1 = {{{Hue[.143,1,1],"1"},{Hue[.286,1,1],"2"},
            {Hue[.429,1,1],"3"},{Hue[.571,1,1],"4"},
            {Hue[.714,1,1],"5"},{Hue[.857,1,1],"6"},
            {Hue[1,1,1],"7"}},LegendPosition -> {.1,.4},
             LegendOrientation -> Horizontal,
             LegendLabel -> "Structures"};

ShowLegend[
Show[ListPlot[S11m1,PlotJoined -> True,PlotStyle -> Hue[.143,1,1],PlotRange ->               
{{100,20000},{.2,.7}},DisplayFunction -> Identity],
     ListPlot[S11m2,PlotJoined -> True,PlotStyle -> Hue[.286,1,1],PlotRange ->               
{{100,20000},{.2,.7}},DisplayFunction -> Identity],
     ListPlot[S11m3,PlotJoined -> True,PlotStyle -> Hue[.429,1,1],PlotRange ->               
{{100,20000},{.2,.7}},DisplayFunction -> Identity],
     ListPlot[S11m4,PlotJoined -> True,PlotStyle -> Hue[.571,1,1],PlotRange ->               
{{100,20000},{.2,.7}},DisplayFunction -> Identity],
     ListPlot[S11m5,PlotJoined -> True,PlotStyle -> Hue[.714,1,1],PlotRange ->               
{{100,20000},{.2,.7}},DisplayFunction -> Identity],
     ListPlot[S11m6,PlotJoined -> True,PlotStyle -> Hue[.857,1,1],PlotRange ->               
{{100,20000},{.2,.7}},DisplayFunction -> Identity],
     ListPlot[S11m7,PlotJoined -> True,PlotStyle -> Hue[1,1,1],PlotRange ->               
{{100,20000},{.2,.7}},DisplayFunction -> Identity]],
     legend1]


==== [MESSAGE SEPARATOR] ====


  • Prev by Date: Comparison of Mathematica on Various Computers
  • Next by Date: Re: [Q] Programming & "Not Floating Point Number" Error
  • Previous by thread: Comparison of Mathematica on Various Computers
  • Next by thread: ShowLegend syntax: HELP!!