Re: Residue Function
- To: mathgroup at smc.vnet.net
- Subject: [mg76111] Re: Residue Function
- From: dimitris <dimmechan at yahoo.com>
- Date: Wed, 16 May 2007 05:37:05 -0400 (EDT)
- References: <f2bulj$jhe$1@smc.vnet.net>
Hi. As far as I know Complex Analysis you have just enountered a bug. (*incorect*) In[43]:= (Residue[#1, {z, Infinity}] & ) /@ {1/z, Exp[2/z]} Out[43]= {-1, -2} (*correct*) In[46]:= (Coefficient[#1, z^(-1)] & )[Normal[{1/z, Exp[2/z]} + O[z, Infinity]^3]] Out[46]= {1,2} The strange thing that Residue calls the Series function. In[51]:= Unprotect[Series]; Series[a___] := Null /; (Print[InputForm[series[a]]]; False) In[52]:= Residue[Cos[z]/z, {z, 0}] >From In[52]:= series[Cos[z]/z, {z, 0, 1}] Out[52]= 1 But funnily In[60]:= (Residue[#1,{z,Infinity}]&)/@{1/z,Exp[2/z]} >From In[60]:= series[z, {z, 0, 1}] >From In[60]:= series[E^(2*z), {z, 0, 1}] Out[60]= {-1,-2} Hence, Mathematica correctly makes the transformation 1/z->z. Nevertheless it returns a incorrect result! Dimitris =CF/=C7 Dana DeLouis =DD=E3=F1=E1=F8=E5: > Hello. I am studying the subject of Residues, and came across the follow= ing > example in an article. Basically, it says the Residue of the following > equation is 2. However, both Mathematica 5.2 & 6.0 (windows) gives it as > -2. > > equ = Exp[2/z]; > > Residue[equ, {z, Infinity}] > > -2 > > >From what little I know, the residue comes from the ^-1 term in the > series... > > Normal[Series[equ, {z, Infinity, 3}]] > > 1 + 4/(3*z^3) + 2/z^2 + 2/z > > Coefficient[%, z^(-1)] > > 2 > > The above shows 2, as in the article. I don't see where Mathematica arri= ves > at -2. Anyone familiar with this topic to comment? Thanks in Advance. > > Dana DeLouis