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