Re: 1+Cos[x]Cosh[x]==0 ?
- To: mathgroup@smc.vnet.net
- Subject: [mg12173] Re: 1+Cos[x]Cosh[x]==0 ?
- From: "Michael Milirud" <mmichael@idirect.com>
- Date: Fri, 1 May 1998 03:08:25 -0400
- Organization: "TUCOWS Interactive Inc"
- References: <6hpgug$djf@smc.vnet.net>
Eddy Wibowo wrote in message <6hpgug$djf@smc.vnet.net>...
>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
Got for Plot[1+Cos[x]Cosh[x],{x,0,5}] You will see the first two roots.
Use the FindRoot[1+Cos[x]Cosh[x]==0,x->2] and then x->5.
Do the same for the next range 4,8 and so on. The function behaves like
crazy for big +-x-es and you can see that if you plot (-100,100) on
(-1000,1000) it is just a black block ;)
Michael