Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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
> 


  • Prev by Date: Re: Request for help - Minimize
  • Next by Date: Hash function
  • Previous by thread: Re: max. value in a plot?
  • Next by thread: Re: max. value in a plot?