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