MathGroup Archive 2011

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

Search the Archive

Re: Limit of nested function

  • To: mathgroup at smc.vnet.net
  • Subject: [mg122176] Re: Limit of nested function
  • From: Daniel Lichtblau <danl at wolfram.com>
  • Date: Tue, 18 Oct 2011 07:42:08 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201110162045.QAA19694@smc.vnet.net>

On 10/16/2011 03:45 PM, Miguel wrote:
> How can I to calculate the limit of a nested function . Mathematica 6
> yields an error message "... Non negative machine size integer ...".
>
> For example, let
>
>
> f[x,n]=Nest[Sqrt[# Sqrt[#]]&,x,n]
>
> For x=3,      Limit[f[3,n], n->inf]
>
> Thanks

One possibility is to solve the recurrence with an appropriate initial 
condition, and take the limit of that as n->Infinity.


In[26]:= gn = g[n] /. RSolve[{g[n+1]==Sqrt[g[n]*Sqrt[g[n]]], g[0]==3},
   g[n], n]
Solve::ifun: Inverse functions are being used by Solve, so some 
solutions may
      not be found; use Reduce for complete solution information.
                 n
            (3/4)
Out[26]= {3      }

In[27]:= Limit[gn, n->Infinity]
Out[27]= {1}

So that limit is 1.

Another way is to solve for teh fixed points, then figure out 
numerically which is the one you want.

f[x_,n_] := Nest[Sqrt[# Sqrt[#]]&,x,n]

In[29]:= ffxtpt = x/. Solve[f[x,1] == x, x]
Out[29]= {0, 1}

In[30]:= N[f[3,10]]
Out[30]= 1.06382

This again indicates the limit is 1.

Daniel Lichtblau
Wolfram Research




  • Prev by Date: Recuperate a graphic in a file using math.exe
  • Next by Date: Re: Limit of nested function
  • Previous by thread: Re: Limit of nested function
  • Next by thread: Re: Limit of nested function