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