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