MathGroup Archive 1997

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

Search the Archive

RE: Re: and L

  • To: mathgroup at smc.vnet.net
  • Subject: [mg8419] RE: [mg8349] Re: [mg8245] and [mg8130] L
  • From: Ersek_Ted%PAX1A at mr.nawcad.navy.mil
  • Date: Sat, 30 Aug 1997 00:42:27 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

Leung wrote:
 >
 > Would anyone tell me how to teach mathematica to evaluate the limit :
 >
 > Limit[a ^ n  / n!, n -> Infinity]  where a is a real constant.
 >
>

I am surpised WRI didn't include this.
Anyway the following should work.


In[1]:=  Unprotect[Limit];
              Limit[ a_^n_/n_!   /;Im[a]==0,   n_->Infinity] = 0;
              Limit[ a_^(-n)/n!    /;Im[a]==0,   n_->Infinity] = 0;
              Protect[Limit];


In[2]:=  Limit[4^n/n! , n->Infinity]

Out[2]= 0


In[3]:=  Limit[(1/4)^n/n! , n->Infinity]

Out[3]= 0


Ted Ersek



  • Prev by Date: What. A Law Professor using Mma
  • Next by Date: Re: Sum[1/(n^2 +n+1)^2,{n,1,p}]
  • Previous by thread: What. A Law Professor using Mma
  • Next by thread: Fitting data to an ellipse or circle??