RE: Data Plotting Questions
- To: mathgroup at smc.vnet.net
- Subject: [mg25909] RE: [mg25889] Data Plotting Questions
- From: "David Park" <djmp at earthlink.net>
- Date: Tue, 7 Nov 2000 23:04:57 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
data = Table[{x, E^(-x) + Random[Real, {-0.02, 0.02}]}, {x, 0, 1, 0.05}];
f[x_] = Fit[data, {1, x, x^2, x^3}, x]
0.9930171982203447 - 0.9299872472664116*x + 0.301636276105894*x^2 +
0.006523815756713608*x^3
Block[{$DisplayFunction = Identity},
plot1 = ListPlot[data, Prolog -> {AbsolutePointSize[4]}];
plot2 = Plot[f[x], {x, 0, 1}]
];
Show[plot1, plot2];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
> -----Original Message-----
> From: bobmarley4u2c at my-deja.com [mailto:bobmarley4u2c at my-deja.com]
To: mathgroup at smc.vnet.net
>
> 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?
>
>
> Thanks