       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)
• 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