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