MathGroup Archive 2000

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: how to : points to surface


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