Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*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 2006

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

Search the Archive

Re: NestWhile iterator.

  • To: mathgroup at smc.vnet.net
  • Subject: [mg66558] Re: NestWhile iterator.
  • From: "Borut Levart" <BoLe79 at gmail.com>
  • Date: Sat, 20 May 2006 04:46:56 -0400 (EDT)
  • References: <e4bivp$1ap$1@smc.vnet.net><e4jtlq$cuq$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hey, that's an elegant solution. Since calculating the square root
above is very ... definite, I remembered something "off-topic" and
wanted to try out: how would one compare the last two result of
NestWhile in order to stop the calculation? With supplying the fourth
argument to the function.
With counting the iterations, let's solve for the intersection of y =
cos(x) and y = x with an error tolerance of 0.001:

In[13]:=
NestWhile[{#[[1]]+1,Cos[#[[2]]]}&,
  {0,.5},
  Abs[#1[[2]]-#2[[2]]]>.001&,
  2]

Out[13]=
{16, 0.738705}


Bye,
Borut Levart
Slovenia


  • Prev by Date: Re: want real solutions instead of complex ones
  • Next by Date: Mathlink and Intel C++ compiler
  • Previous by thread: Re: NestWhile iterator.
  • Next by thread: Lists and rules