Re: Show[] applied to a Plot[] and a ListPlot[] ??
- To: mathgroup at smc.vnet.net
- Subject: [mg41042] Re: Show[] applied to a Plot[] and a ListPlot[] ??
- From: bobhanlon at aol.com (Bob Hanlon)
- Date: Wed, 30 Apr 2003 04:21:00 -0400 (EDT)
- References: <b8lh7e$9cd$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
data={{0,260.},{.25,218.},{.5,200.},{.75,212.},{1.,240.}}; a0=260.;a1=-188.;a2=-2.667;a3=384.;a4=-213.333; f[x_]=a0+a1 x+a2 x^2+a3 x^3+a4 x^4; The Epilog goes with the Plot and there is no need of the ListPlot Plot[f[x],{x,0,1}, Epilog-> {RGBColor[1,0,0],PointSize[0.025],Point/@data}]; Further, you wouldn't need this Epilog if using a ListPlot b=ListPlot[data,PlotStyle->{RGBColor[1,0,0],PointSize[0.025]}]; With this ListPlot, Show will do what you expected a=Plot[f[x],{x,0,1}]; Show[{a,b}]; Bob Hanlon In article <b8lh7e$9cd$1 at smc.vnet.net>, "1.156" <rob at piovere.com> wrote: << Subject: Show[] applied to a Plot[] and a ListPlot[] ?? From: "1.156" <rob at piovere.com> To: mathgroup at smc.vnet.net Date: Tue, 29 Apr 2003 09:38:54 +0000 (UTC) First I start with a few measured data points: data = {{0,260.}, {.25,218.},{.5,200.}, {.75,212.}, {1.,240.}}; (* I do some curve fitting/regression and I come up with a polynomial and I'd like to see how the curve compares with the data *) a0 = 260.; a1 = -188.; a2 = -2.667; a3 = 384.; a4 = -213.333.; f[x_]= a0+ a1 x+ a2 x^2+ a3 x^3 +a4 x^4; (* So I plot each of them, both look good to me. a plots the best fit curve and b plots the data points with nice big red dots. I got the b code from some kind soul on this ng I think. Both plots are over a domain from 0 to 1 *) a = Plot[f[x], {x, 0, 1}]; b=ListPlot[data,Epilog\[Rule]{RGBColor[1,0,0],PointSize[0.025],Point/@data}] (* now that I see that both plots work, I do my usual and Show them together *) Show[{a,b}] But woe is me: I can see some of the b points as small black dots (not RED!), and several I can't see at all next to the plain black plot of a. This seems to work fine if both a and b are standard Plot[] functions but here I'm mixing Plot[] and ListPlot[] -- I'm definitely teasing the devil. Can someone give me a hint how to make Mathematica Show[] reveal the nice big red dots from a ListPlot in b while also displaying the Plot[] curve? >><BR><BR>