Groups > comp.soft-sys.math.mathematica > #1973

Re: complex equation

From	DC <b.gatessucks@gmail.com>
Newsgroups	comp.soft-sys.math.mathematica
Subject	Re: complex equation
Date	2011-04-29 11:30 +0000
Organization	Steven M. Christensen and Associates, Inc and MathTensor, Inc.
Message-ID	<ipe7gu$qt0$1@smc.vnet.net> (permalink)

Show all headers | View raw

If you're after complex solutions you might first expand your lhs with

ComplexExpand[Sqrt[1 - (x + I y)^2], TargetFunctions -> {Re, Im}]

and then try

FindRoot[{(4 x^2 y^2 + (1 - x^2 + y^2)^2)^(1/4)
     Cos[1/2 ArcTan[1 - x^2 + y^2, -2 x y]] == 
   2, (4 x^2 y^2 + (1 - x^2 + y^2)^2)^(1/4)
     Sin[1/2 ArcTan[1 - x^2 + y^2, -2 x y]] == 0}, {{x,0}, {y, Sqrt[
   3]}}]

Also, notice that :

Reduce[Sqrt[1 - (x + I y)^2] == 2, {x, y}] gives 

y == -Sqrt[3] + I x || y == Sqrt[3] + I x

while 
Reduce[Sqrt[1 - (x + I y)^2] == -2, {x, y}] gives

False

-Francesco

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread

Thread

Re: complex equation DC <b.gatessucks@gmail.com> - 2011-04-29 11:30 +0000

csiph-web