Re: max. value in a plot?
- To: mathgroup at smc.vnet.net
- Subject: [mg97486] Re: max. value in a plot?
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Sat, 14 Mar 2009 05:37:50 -0500 (EST)
- Organization: Uni Leipzig
- References: <gpda3h$jj4$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi,
{gr, vals} =
Reap[Plot3D[
With[{v = (6*15*(10^-6))/((x - 0)^2 + (y - 0)^2 + (0 - 0.005)^2)},
Sow[v]; v], {x, -0.05, 0.05}, {y, -0.05, 0.05}]];
Show[gr, PlotLabel -> Max[vals]]
Regards
Jens
Oliver wrote:
> Hallo,
> i have 2 small questions. how can i find the max. Value of the following Plot?
>
> Plot3D[
> (6*15*(10^-6))/((x - 0)^2 + (y - 0)^2 + (0 - 0.005)^2),
>
> {x, -0.05, 0.05}, {y, -0.05, 0.05}]
>
> and how can i plot the range ONLY from the min to the max value?
> thanks in Advance
>