Re: how to : points to surface
- To: mathgroup at smc.vnet.net
- Subject: [mg22835] Re: how to : points to surface
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Sat, 1 Apr 2000 02:50:58 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <8c1f21$pr0@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
lets make some data:
data = Flatten[
Table[{x, y, (x + 0.1*Random[])*(y + 0.1*Random[])},
{x, -1, 1, 0.1}, {y, -1, 1, 0.1}], 1];
and make a fit:
fit = Fit[data, {1, x, y, x*y}, {x, y}]
and show both together:
surf = Plot3D[Evaluate[fit], {x, -1, 1}, {y, -1, 1},
DisplayFunction -> Identity];
pnts = Graphics3D[Point /@ data];
Show[surf, pnts, DisplayFunction -> $DisplayFunction]
Regards
Jens
Dr Sebastien NEUKIRCH wrote:
>
> Hi there,
>
> I've got a list of 3d-points.
> I would like to plot them, together
> with a linear estimate of the surface they lie on.
>
> Just like if I had a set of 2d-points and i wanted
> to do ListPlot[]
>
> (ListSurfacePlot3D does not work)
>
> How to get a linear fit of 3d set of points then ?
>
> Thanks for any help!
>
> Seb