Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2003
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2003

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

Search the Archive

Re: Help to solve numerical equation

  • To: mathgroup at smc.vnet.net
  • Subject: [mg43713] Re: Help to solve numerical equation
  • From: Bas Zoetekouw <news200310 at caradhras.net>
  • Date: Thu, 2 Oct 2003 02:51:07 -0400 (EDT)
  • References: <blcqh2$p75$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Raul Gomez Riera wrote in comp.soft-sys.math.mathematica:
>  I want to solve the equation below:
>  eq = 0.5*Exp[x*200] + 0.21*Exp[x*500] + 0.1*Exp[x*110] + 
>      0.07*Exp[x*(15)] + 0.018*Exp[x*(-16)] + 0.002*Exp[x*(-263)] - 1
>  and I am try whith:
>  NSolve[eq == 0, x ]
>  but Mathematica don't get any result. We have Mathematica 4.0 on linux.

You should use findroot instead of NSolve:

In[7]:= FindRoot[eq,{x,0}]

Out[7]= {x -> 0.00042907}
`

-- 
Kind regards,
  Bas Zoetekouw               ``Si l'on sait exactement ce que l'on va
                                faire, a quoi bon le faire?''
  bas at o2w.nl                                           Pablo Picasso


  • Prev by Date: Re: Help to solve numerical equation
  • Next by Date: Re: FileBrowse command
  • Previous by thread: Re: Help to solve numerical equation
  • Next by thread: Re: Help to solve numerical equation