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: A question concerning Show and PlotLegend

  • To: mathgroup at smc.vnet.net
  • Subject: [mg65293] Re: A question concerning Show and PlotLegend
  • From: Bill Rowe <readnewsciv at earthlink.net>
  • Date: Fri, 24 Mar 2006 00:59:52 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

On 3/23/06 at 6:58 AM, rbnorman at WPI.EDU (Ryan Bradley Norman) wrote:

>What I was hoping was that the command PlotRange -> PlotRange[p2]]
>does is set the PlotRange for the Show to that of p2- which is the
>plot of the data points.  If you remove the variables for the
>legend, the plot does what it is supposed to do- shows the
>theoretical curves and the data on one plot.  Well, it actually
>outputs two plots.  One with just the curves and below it one with
>the curves and the data plotted together.  But when the variables
>used to set the legend are included it messes everything up.

>Just to be clear, p2 is a plot of some data points using
>MultipleListPlot and I am trying to add two theoretical curves to
>the plot.

Does the following produce something like what you are looking for?

In[26]:=
SeedRandom[0]

In[27]:=
data = Sort[Table[Random[], {10}]]; 
lin = a*x + b /. FindFit[data, a*x + b, {a, b}, x]; 
par = a*x^2 + b*x + c /. FindFit[data, a*x^2 + b*x + c, 
     {a, b, c}, x]; 

In[30]:=
Show[Block[{$DisplayFunction = Identity}, 
    {ListPlot[data], Plot[lin, {x, 1, 10}, 
      PlotStyle -> Blue], Plot[par, {x, 1, 10}, 
      PlotStyle -> Red]}], PlotRange -> 
    {Automatic, {-0.1, 1.1}}, Frame -> True, 
   Axes -> None, Epilog -> {Text["linear fit", {0.5, 1}, 
      {-1, 0}], Text["parabolic fit", {0.5, 0.92}, 
      {-1, 0}], Red, Line[{{0, 0.92}, {0.5, 0.92}}], 
     Blue, Line[{{0, 1}, {0.5, 1}}]}];
--
To reply via email subtract one hundred and four


  • Prev by Date: Re: sorting list of roots af a transcendental function
  • Next by Date: Re: A question concerning Show and PlotLegend
  • Previous by thread: Re: Re: A question concerning Show and PlotLegend
  • Next by thread: Re: A question concerning Show and PlotLegend