MathGroup Archive 2012

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

Search the Archive

How can I use FindMaximum to get a result better than MachinePrecision?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg127940] How can I use FindMaximum to get a result better than MachinePrecision?
  • From: David Kirkby <drkirkby at gmail.com>
  • Date: Tue, 4 Sep 2012 05:45:26 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net

I've tried this:

In[2]:= FindMaximum[8 E^(-x) Sin[x] -1,{x,0,8}]

Out[2]= {1.57918, {x -> 0.785398}}


Then played around to try to get a more accurate result. 

In[9]:= FindMaximum[8 E^(-x) Sin[x] -1,{x,0,8},AccuracyGoal->20, PrecisionGoal->20]

Out[9]= {1.57918, {x -> 0.785398}}

In[10]:= Precision[%]


Also: 


In[7]:= N[FindMaximum[8 E^(-x) Sin[x] -1,{x,0,8},AccuracyGoal->200, PrecisionGoal->200],100]

Out[7]= {1.57918, {x -> 0.785398}}

In[8]:= Precision[%]

Out[8]= MachinePrecision


Any suggestions? 



  • Prev by Date: Re: split the sublists into parts according to some rules
  • Next by Date: Re: A new FrontEnd
  • Previous by thread: Re: Creating animated 3d graphic in Mathematica for export
  • Next by thread: Re: How can I use FindMaximum to get a result better than MachinePrecision?