MathGroup Archive 2003

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

Search the Archive

Re: Simplifying Complex expression

  • To: mathgroup at smc.vnet.net
  • Subject: [mg43093] Re: Simplifying Complex expression
  • From: Paul Abbott <paul at physics.uwa.edu.au>
  • Date: Tue, 12 Aug 2003 04:43:06 -0400 (EDT)
  • Organization: The University of Western Australia
  • References: <bgv903$5i3$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

In article <bgv903$5i3$1 at smc.vnet.net>,
 Helge Andersson <helge at envic.chalmers.se> wrote:

> specific conditions. My problem is to simplify the general complex solution 
> to one that is real in the domain 0 to 1. The solution that I specifically 
> is interested in is the following given in InputForm:
> 
> 1/2 - (1 - I*Sqrt[3])/(4*(1 + 2*Sqrt[-1 + y]*Sqrt[y] - 2*y)^(1/3)) -
>   ((1 + I*Sqrt[3])*(1 + 2*Sqrt[-1 + y]*Sqrt[y] - 2*y)^(1/3))/4
> 
> Could someone give me an idea to perform this (for example with Simplify 
> Command)

Further to my previous posting, one can use ComplexExpand directly:

  Simplify[ComplexExpand[1/2 - (1 - I*Sqrt[3])/
    (4*(1 + 2*Sqrt[-1 + y]*Sqrt[y] - 2*y)^(1/3)) -
    ((1 + I*Sqrt[3])*(1 + 2*Sqrt[-1 + y]*Sqrt[y] - 2*y)^(1/3))/4,
    TargetFunctions -> {Re, Im}], 0 < y < 1]

Cheers,
Paul

-- 
Paul Abbott                                   Phone: +61 8 9380 2734
School of Physics, M013                         Fax: +61 8 9380 1014
The University of Western Australia      (CRICOS Provider No 00126G)         
35 Stirling Highway
Crawley WA 6009                      mailto:paul at physics.uwa.edu.au 
AUSTRALIA                            http://physics.uwa.edu.au/~paul


  • Prev by Date: Re: NSum working on Re[ ]
  • Next by Date: Re: He said DisplayTogetherArray, but ...
  • Previous by thread: Simplifying Complex expression
  • Next by thread: Re: Simplifying Complex expression