MathGroup Archive 2006

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

Search the Archive

Re: Solving Nonlinear Transcedental equations

  • To: mathgroup at smc.vnet.net
  • Subject: [mg66132] Re: [mg66103] Solving Nonlinear Transcedental equations
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sun, 30 Apr 2006 04:21:56 -0400 (EDT)
  • Reply-to: hanlonr at cox.net
  • Sender: owner-wri-mathgroup at wolfram.com
  • Sensitivity: Normal

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.it is
> 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: Re: 2D/3D plots scaled to unit of dimension
  • Next by Date: Re: Graphics--combining graphics
  • Previous by thread: Re: Solving Nonlinear Transcedental equations
  • Next by thread: Re: Solving Nonlinear Transcedental equations