MathGroup Archive 2006

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

Search the Archive

Re: Solving Nonlinear Transcedental equations

  • To: mathgroup at smc.vnet.net
  • Subject: [mg66152] Re: [mg66103] Solving Nonlinear Transcedental equations
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Mon, 1 May 2006 01:30:42 -0400 (EDT)
  • Reply-to: hanlonr at cox.net
  • Sender: owner-wri-mathgroup at wolfram.com

From Help for FindRoot

"FindRoot[lhs == rhs, {x, x0, x1}] searches for a solution using x0 and x1 as the first two values of x, avoiding the use of derivatives."

{#, 0, 0.001}&/@{a, b, c, d, e} maps the form onto the list of variables to give them all the same two starting values. (See Help for Map, Function, Slot)


Bob Hanlon

---- shyam d <shyam.nitk at gmail.com> wrote: 
> Thanks for sending me the solution.
> but,in the command   FindRoot[eqns,{#,0,0.001}&/@{a,b,c,d,e},
>    WorkingPrecision->25]
> I would like to know what is the meaning of #,0,0.001.
> Is that indicates any accuracy.
> Once again thank you
> 
> On 4/30/06, Bob Hanlon <hanlonr at cox.net> wrote:
> >
> > eqns={Cos[5a]+Cos[5b]+Cos[5c]+Cos[5d]+Cos[5e]==0 ,
> > Cos[7a]+Cos[7b]+Cos[7c]+Cos[7d]+Cos[7e]==0 ,
> > Cos[11a]+Cos[11b]+Cos[11c]+Cos[11d]+Cos[11e]==0 ,
> > Cos[13a]+Cos[13b]+Cos[13c]+Cos[13d]+Cos[13e]==0 ,
> > Cos[a]+Cos[b]+Cos[c]+Cos[d]+Cos[e]==4};
> >
> > soln=FindRoot[eqns,{#,0,0.001}&/@{a,b,c,d,e},
> >    WorkingPrecision->25]
> >
> > {a -> 0.3305683994360862122301429,
> > b -> 0.1146653314898035411913792,
> > c -> -0.7877678437228476935626191,
> > d -> -0.4744373833069562315667576,
> > e -> 1.086337197092250719345098}
> >
> >
> > Bob Hanlon
> >
> >
> > ---- shyam d <shyam.nitk at gmail.com> wrote:
> > >
> > > I got a problem with Mathematica 5.1 ,as i am going to solve a Nonlinear
> > > Transcedental Equations, which are five variables with five eqations.itis
> > > not able to solve the problem and it is not showing any thing can any
> > > on please solve the problem using mathematica 5.1.
> > > and send me how to solve in mathematica 5.1
> > > The problem statement is
> > >
> > > solving the 5 simultaneous Non linear Transcedental equations
> > >
> > > cos(5a)+cos(5b)+cos(5c)+cos(5d)+cos(5e)=0
> > >  cos(7a)+cos(7b)+cos(7c)+cos(7d)+cos(7e)=0
> > >  cos(11a)+cos(11b)+cos(11c)+cos(11d)+cos(11e)=0
> > >  cos(13a)+cos(13b)+cos(13c)+cos(13d)+cos(13e)=0
> > >  cos(a)+cos(b)+cos(c)+cos(d)+cos(e)=4
> > >
> > > solve for a= ?,b= ?,c= ?,d= ?
> > >
> > > thanks
> > > shaym
> > >
> > >
> >
> >


  • Prev by Date: Apparent accuracy error in least squares fit
  • Next by Date: Problem solving equation using Solve
  • Previous by thread: Re: Re: Apparent accuracy error in least squares fit
  • Next by thread: Problem solving equation using Solve