Re: Data Plotting Questions

• To: mathgroup at smc.vnet.net
• Subject: [mg25922] Re: [mg25889] Data Plotting Questions
• From: BobHanlon at aol.com
• Date: Tue, 7 Nov 2000 23:05:06 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```In a message dated 11/7/2000 4:29:12 AM, bobmarley4u2c at my-deja.com writes:

>If I have a data, and I found the best fit polynomials. Now I want to
>graph the polynomial and the data points on the same graph. How would I
>do that in Mathematica?
>

Needs["Graphics`Graphics`"];

Clear[f, x];

f[x_] := x^3 - 5x^2 - x - 6;

xmin = -4; xmax = 7; nbrPts = 10;

data = Table[{x = ((xmax - xmin)*Random[] + xmin),
f[x] + 20(Random[] - .5)}, {nbrPts}];

Clear[x];

ft = Fit[data, {1, x, x^2, x^3}, x]

DisplayTogether[
ListPlot[data, PlotStyle -> {AbsolutePointSize[4], RGBColor[1, 0, 0]}],
Plot[ft, {x, xmin, xmax}, PlotStyle -> RGBColor[0, 0, 1]]];

Bob Hanlon

```

• Prev by Date: RE: How can I combinate two strings into one?
• Next by Date: Re: Incorrect plotting of Lissajous-figures
• Previous by thread: Data Plotting Questions
• Next by thread: Re: Data Plotting Questions