ComplexExpand

*To*: mathgroup at yoda.physics.unc.edu*Subject*: ComplexExpand*From*: sergio at shark.inst.bnl.gov (Sergio Rescia)*Date*: Thu, 7 Jan 93 14:25:43 EST

I am trying to expand rational polinomials, functions of I omega. All other variables are real ( I use ReIm.m to declare them real). ComplexExpand does not expand the Abs, like: In[1]:= <<Algebra`ReIm` In[2]:= w/: Im[w]=0 (* Declares w real *) Out[2]= 0 In[3]:= ComplexExpand[Abs[1+ 2 I w]] Out[3]= Abs[1 + 2 I w] Is there any way to expand it?? Thank you, Sergio Rescia Brookhaven National Laboratory