Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: 1+Cos[x]Cosh[x]==0 ?



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



  • Prev by Date: Re: Sqrt Problems
  • Next by Date: Re: what is wrong here?
  • Prev by thread: Re: 1+Cos[x]Cosh[x]==0 ?
  • Next by thread: Re: 1+Cos[x]Cosh[x]==0 ?