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

```

• Prev by Date: Re: Greek symbols in AxesLabel and PlotLabel
• Next by Date: Re: Greek symbols in AxesLabel and PlotLabel
• Previous by thread: Re: Publishing in Scientific Journals with Mathematica
• Next by thread: Re: Frontend out of memory