Re: Help to solve numerical equation
- To: mathgroup at smc.vnet.net
- Subject: [mg43739] Re: Help to solve numerical equation
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 2 Oct 2003 02:52:11 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <blcqh2$p75$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
FindRoot[Evaluate[eq == 0 /. n_Real :> Rationalize[n]], {x, 0.1},
MaxIterations -> 128]
Regards
Jens
Raul Gomez Riera wrote:
>
> 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.
>
> Can any body help me.
>
> Thanks
>
> Raul