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