Re: Simplify a complex expression

*To*: mathgroup at smc.vnet.net*Subject*: [mg130442] Re: Simplify a complex expression*From*: Peter Pein <petsie at dordos.net>*Date*: Thu, 11 Apr 2013 04:13:08 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <kk4pni$lpa$1@smc.vnet.net>

Am 11.04.2013 00:39, schrieb Polal2is: > Dear all, > I have a cumbersome complex expression to simplify the problem is that Conjugate[z] and z are always split I would like a simplified expression involving Abs[z]^2 > as much as possible. How can I tell Mathematica to do it ? > -- > Thanks a lot in advance > Hi, tell ComplexExpand that z is a complex number and select Abs and Log as target functions: In[1]:= ComplexExpand[z + Conjugate[z], z, TargetFunctions -> {Abs, Log}] Out[1]= z + Abs[z]^2/z if this leads to too many Logs, try In[2]:= z + Conjugate[z] + ArcTan[I z] /. Conjugate :> (Abs[#]^2/# &) Out[2]= z + Abs[z]^2/z + I ArcTanh[z] instead. hth, Peter