Re: Show[] applied to a Plot[] and a ListPlot[] ??
- To: mathgroup at smc.vnet.net
- Subject: [mg41057] Re: [mg41023] Show[] applied to a Plot[] and a ListPlot[] ??
- From: Bobby Treat <drmajorbob+MathGroup3528 at mailblocks.com>
- Date: Wed, 30 Apr 2003 04:24:06 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Show seems to be losing or ignoring the Epilog, and ListPlot is rarely the best way to do anything anyway. Dave Park's graphics package at http://home.earthlink.net/~djmp/ makes this SO much more natural, all in one step: Needs["DrawGraphics`DrawingMaster`"] Draw2D[{Draw[f[x], {x, 0, 1}], Red, PointSize[0.025], Point /@ data}, Frame -> True ] Bobby -----Original Message----- From: 1.156 <rob at piovere.com> To: mathgroup at smc.vnet.net Subject: [mg41057] [mg41023] Show[] applied to a Plot[] and a ListPlot[] ?? 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? Rob