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