       Re: A question concerning Show and PlotLegend

• To: mathgroup at smc.vnet.net
• Subject: [mg65293] Re: A question concerning Show and PlotLegend
• 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:=
SeedRandom

In:=
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:=
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