Mathematica 9 is now available
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 ?


  • 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



  • Prev by Date: Mathematica Fonts question
  • Next by Date: Re: Plotting w/o artifacts at discontinuities
  • Prev by thread: Re: 1+Cos[x]Cosh[x]==0 ?
  • Next by thread: Re: 1+Cos[x]Cosh[x]==0 ?