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

Simplify further

• To: mathgroup at smc.vnet.net
• Subject: [mg61791] Simplify further
• From: "Thomas Schmelzer" <thomas.??? at balliol.ox.ac.uk>
• Date: Sun, 30 Oct 2005 00:43:20 -0400 (EDT)
• Organization: Balliol College
• Reply-to: "Thomas Schmelzer" <thomas.??? at balliol.ox.ac.uk>
• Sender: owner-wri-mathgroup at wolfram.com

Hi experts,

Let

f[x_] := c/(x - p) + c\[Conjugate]/(x - p\[Conjugate])

I am interested in local extrema

Solve[D[f[x], x] == 0, x]

Mathematica gives me a list.

I plug those values into f again.

Using the Simplify command I get expression as

sqrt(- c conjugate c ( p - conjugate p ) ^2 )

Is there a way that Mathematica simplifies that to

4*(abs (c))^2  (Im p)^2

cheers

Thomas