MathGroup Archive 2000

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

Search the Archive

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