MathGroup Archive 2001

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

Search the Archive

Re: roots

  • To: mathgroup at smc.vnet.net
  • Subject: [mg29410] Re: roots
  • From: "Hermann Meier" <hmeier at webshuttle.ch>
  • Date: Mon, 18 Jun 2001 03:39:10 -0400 (EDT)
  • Organization: EUnet AG, Switzerland. A KPNQwest Company.
  • References: <9gevki$7k8$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

> Maarten van der Burgt wrote:

> What is the easiest solution to finding the 13 (real) roots of 0.05 x +
> Cos[x] == 0. (....)

<< NumericalMath`IntervalRoots`

IntervalNewton[0.05 x + Cos[x], x, Interval[{-30., 30.}], 10^-10.,
  MaxRecursion -> 100]//InputForm

gives

Interval[{-19.14330451808022, -19.14330451805268},
 {-18.45375405471094, -18.453754054710902},
 {-13.402771471945435, -13.402771471945416},
 {-11.615238614490243, -11.615238614490224},
 {-7.471140913733229, -7.471140913733216},
 {-4.963167688817952, -4.9631676888179435},
 {-1.4959299132767379, -1.4959299132677975},
 {1.6535692761064251, 1.6535692761313203},
 {4.4861562872107585, 4.4861562872107665},
 {8.280873580136642, 8.28087358013666},
 {10.446026863672607, 10.44602686367263},
 {14.984022024364082, 14.984022024364215},
 {16.323959949381134, 16.323959949381166}]


Hermann Meier
hmeier at webshuttle.ch






  • Prev by Date: Reading, Modifying, and Writing a file with data with quotation marks
  • Next by Date: Errors im Mathematica??
  • Previous by thread: RE: roots
  • Next by thread: Re: roots