Re: 1+Cos[x]Cosh[x]==0 ?
- To: mathgroup@smc.vnet.net
- Subject: [mg12159] Re: [mg12109] 1+Cos[x]Cosh[x]==0 ?
- From: Bob Hanlon <BobHanlon@aol.com>
- Date: Mon, 27 Apr 1998 01:46:43 -0400
Plot[1 + Cos[x]*Cosh[x], {x, 0, 3}];
FindRoot[1 + Cos[x]*Cosh[x] == 0, {x, 1.9}]
{x -> 1.875104213439618}
Plot[1 + Cos[x]*Cosh[x], {x, 3, 5}];
FindRoot[1 + Cos[x]*Cosh[x] == 0, {x, 4.7}]
{x -> 4.694091134241512}
Plot[1 + Cos[x]*Cosh[x], {x, 5, 8}];
FindRoot[1 + Cos[x]*Cosh[x] == 0, {x, 7.8}]
{x -> 7.854757438345366}
Plot[1 + Cos[x]*Cosh[x], {x, 8, 11}];
FindRoot[1 + Cos[x]*Cosh[x] == 0, {x, 11.}]
{x -> 10.99554073487546}
Plot[1 + Cos[x]*Cosh[x], {x, 11, 15}];
FindRoot[1 + Cos[x]*Cosh[x] == 0, {x, 14.2}]
{x -> 14.13716839104647}
Bob Hanlon
In a message dated 4/25/98 5:16:37 AM, ew4516@bristol.ac.uk wrote:
>How to solve "1 + Cos[x] Cosh[x] == 0"? I will probably need just the
>first five, positive solution of "x".