Re: experimental set of points
- To: mathgroup at smc.vnet.net
- Subject: [mg33181] Re: experimental set of points
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 7 Mar 2002 02:23:30 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <a64gg1$n16$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
Block[{x, y},
data = Table[(x = Random[]; y = Random[]; {x, y, x*y + x + y}),
{200}]];
ff = Fit[data, {x, y, y*x}, {x, y}];
Block[{$DisplayFunction = Identity},
g1 = Plot3D[Evaluate[ff], {x, 0, 1}, {y, 0, 1}];
g2 = Graphics3D[Point /@ data];
];
Show[g1, g2]
does this.
Regards
Jens
"Juan E. Fuentes" wrote:
>
> I have the following problem: An experimental set of points, which have
> each three coordinates Y,x1 and x2 and I did with the Fit or Regress
> functions the fit of the points succesfully. Now I want to plot the
> function and the points. The fitting function was plotted with the
> Plot3D but I could'n figure out how to plot the set points. ListPlot3D
> gave an error message that the point could have only two coordinate.
> Any hint will help me. Thanks in advance, Juan