MathGroup Archive 2005

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

Search the Archive

Re: Is this possible? Residue computation leads to complexInfinity?


kiki schrieb:
> In[15]:=
> \!\(FullSimplify[Residue[\(\[ImaginaryI]\ z\)\/\(1 - \((2 + 4\ a)\)\ z\^2 + 
> z\
> \^4\), \@\(a + 1\) - \@a], \ a > 0]\)
> 
> Out[15]=
> \!\(Residue[ComplexInfinity, \(-\@a\) + \@\(1 + a\)]\) 
> 
> 
kiki,

have a look at the syntax (can be found - guess where -in the
documentation):

"Residue[expr, {x, x0}] finds the residue of expr at the point x=x0"

FullSimplify[Residue[(I*z)/(1 - (2 + 4*a)*z^2 + z^4),
  {z, Sqrt[a + 1] - Sqrt[a]}], a > 0]

gives (I*(-1 + Sqrt[1 + 1/a]))/(8*(-1 - a + Sqrt[a + a^2]))

and

Union[Assuming[a > 0, FullSimplify[
(Residue[(I*z)/(1 - (2 + 4*a)*z^2 + z^4), #1] & ) /@
  ({z, z /. #1} & ) /@ Solve[1 - (2 + 4*a)*z^2 + z^4 == 0, z]]]]

returns the residues at the poles of your function:
{-(I/(8*Sqrt[a*(1 + a)])), I/(8*Sqrt[a*(1 + a)])}

Peter

-- 
Peter Pein, Berlin
GnuPG Key ID: 0xA34C5A82
http://people.freenet.de/Peter_Berlin/


  • Prev by Date: Re: After upgrade of X Server, Mathematica won't work properly
  • Next by Date: Re: Is this possible? Residue computation leads to complexInfinity?
  • Previous by thread: Re: Is this possible? Residue computation leads to complexInfinity?
  • Next by thread: Re: Is this possible? Residue computation leads to complexInfinity?