Re: locating points in mathematica plots
- To: mathgroup at smc.vnet.net
- Subject: [mg57613] Re: locating points in mathematica plots
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Thu, 2 Jun 2005 05:16:50 -0400 (EDT)
- Organization: Uni Leipzig
- References: <d7k39c$oiq$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
fun = x^2 + (y - 2)^2;
fmin = Minimize[Evaluate[fun], {x, y}];
gr = Plot3D[Evaluate[fun], {x, -5, 5}, {y, -5, 5},
DisplayFunction -> Identity]; Show[gr,
Graphics3D[{AbsolutePointSize[6],
fmin /. {z_, p_} :> Point[Append[{x, y} /. p, z +
0.1]]}],
DisplayFunction -> $DisplayFunction]
??
Regards
Jens
<utish_r at hotmail.com> schrieb im Newsbeitrag
news:d7k39c$oiq$1 at smc.vnet.net...
> how to locate points (coordinate), say maxima
> and minima values, in a
> 3d plot in mathematica?
>