Re: 1+Cos[x]Cosh[x]==0 ?
- To: mathgroup@smc.vnet.net
- Subject: [mg12157] Re: 1+Cos[x]Cosh[x]==0 ?
- From: bawolk@ucdavis.edu (Bruce Wolk)
- Date: Mon, 27 Apr 1998 01:46:41 -0400
- Organization: University of California, Davis
- References: <6hpgug$djf@smc.vnet.net>
On 24 Apr 1998 04:02:24 -0400, Eddy Wibowo <ew4516@bristol.ac.uk> wrote:
>Hi everybody,
>
>How to solve "1 + Cos[x] Cosh[x] == 0"? I will probably need just the
>first five, positive solution of "x".
>
>Many thanks before hand.
>
>-Eddy
>
>
How about
In[1]:=
Table[x/.FindRoot[1+Cos[x] Cosh[x]==0,{x,i}],{i,1.5,5 Pi,Pi}] Out[1]=
{1.8751,4.69409,7.85476,10.9955,14.1372}
I guessed 1.5 to start and then figured I would get a root every Pi or
so.
Cheers,
Bruce