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>