Re: How to evaluate a function and graph it--part 2
- To: mathgroup at smc.vnet.net
- Subject: [mg43464] Re: How to evaluate a function and graph it--part 2
- From: martins.pires at netvisao.pt (Rui)
- Date: Wed, 17 Sep 2003 07:59:56 -0400 (EDT)
- References: <bi7nik$p8f$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Rebeca
Try this:
f[x_, y_] := x^4 + 3 x^2 + 5 y^2 + x + y;
m = FindMinimum[f[x, y], {x, -3, 4}, {y, -3, 4.3}]
{xmin, ymin} = {m[[2, 1, 2]], m[[2, 2, 2]]};
fplot = fplot = Plot3D[f[x, y], {x, -3, 4}, {y, -3, 4.3},
DisplayFunction -> Identity];
Show[fplot,
Graphics3D[{PointSize[0.02], Hue[0],
Point[{xmin, ymin, 1 + f[xmin, ymin]}]}],
DisplayFunction -> $DisplayFunction];
ContourPlot[f[x, y], {x, -3, 4}, {y, -3, 4.3}, ContourShading -> False,
Contours -> 20,
Epilog -> {{PointSize[.02], Hue[0], Point[{xmin, ymin}]}}];
I hope this is what you want.