MathGroup Archive 2011

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

Search the Archive

Re: Limit of nested function

What is beautiful with this forum is that apart of improving his
Mathematica skills, one can
improve deeply his mathematical understanding!
There are persons here like Daniel Lichtblau and Andrzej Kozlowski (to
name just a few!) that their
answers are like complete lectures!
Also most times when you ask something, somebody has asked something
similar in the past!!

See this link from an old post that arose from a similar question of
mine, back in 2006.

You will find it quite useful.

Let's see therefore your nested function.

"The limit of a nested expression of the form: Nest[f,...], if it
exists, is a fixed point of the function f. A fixed point of f is a
root of f[x]-x==0. "

Solve[(x == Sqrt[#1*Sqrt[#1]] & )[x]]
{{x -> 0}, {x -> 1}}

Take[Table[N[Nest[Sqrt[#1*Sqrt[#1]] & , 3, n], 100], {n, 2, 500}], -4]

FixedPoint[N[Sqrt[#1*Sqrt[#1]] & , 100], N[3, 100], SameTest ->
(Abs[#1 - #2] < 1/10000000000 & )]

In Daniel Lichtblau's words (from above mentioned link):
"Limit is designed to work on functions defined on a continuum, and
in a closed form. The function in question satisfies neither
Bottom line is that the Limit function was not designed or intended to
handle functions defined on only a sequence of points, or to handle
functions not given in explicit closed form...For examples such as
this one gets results exactly... using Solve to find an exact
representation of the fixed point for the iteration."

Dimitris Anagnostou

  • Prev by Date: Re: Limit of nested function
  • Next by Date: Re: Constructing a huge graph
  • Previous by thread: Re: Limit of nested function
  • Next by thread: Find two numbers a,b such us: a+b=5432 & LCM[a,b]=223020