       Re: Re: Trigonometric form of complex numbers

• To: mathgroup at smc.vnet.net
• Subject: [mg64199] Re: [mg64181] Re: Trigonometric form of complex numbers
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Sun, 5 Feb 2006 04:44:53 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```p[x_]:=Abs[x]*(Cos[Arg[x]]+I*Sin[Arg[x]]);

f[y_,n_Integer]:=Module[{x},
p/@(x/.Solve[x^n==y,x])];

r=f[z,3]

{Abs[z]^(1/3)*(Cos[Arg[z]/3] + I*Sin[Arg[z]/3]),
Abs[z]^(1/3)*(Cos[Arg[(-(-1)^(1/3))*z^(1/3)]] +
I*Sin[Arg[(-(-1)^(1/3))*z^(1/3)]]),
Abs[z]^(1/3)*(Cos[Arg[(-1)^(2/3)*z^(1/3)]] +
I*Sin[Arg[(-1)^(2/3)*z^(1/3)]])}

FullSimplify[Times@@r]

z

r=f[5+I*6,2]

{61^(1/4)*(Cos[Arg[-Sqrt[5 + 6*I]]] +
I*Sin[Arg[-Sqrt[5 + 6*I]]]),
61^(1/4)*(Cos[(1/2)*ArcTan[6/5]] +
I*Sin[(1/2)*ArcTan[6/5]])}

FullSimplify[Times@@r]

-5 - 6*I

Bob Hanlon

>
> From: ivan.svaljek at gmail.com
To: mathgroup at smc.vnet.net
> Subject: [mg64199] [mg64181] Re: Trigonometric form of complex numbers
>
> I'm looking for a solution that would produce something like this:
> r (cos f + i sin f).
>
> And would return n roots of a complex number in such form.
>
> Mathematica itself does nothing to return roots of complex numbers. Am
> I wrong ?
>
>

```

• Prev by Date: Re: 2D FT of f(r): Fast Hankel Transforms
• Next by Date: Re: notebook font encoding
• Previous by thread: Re: Trigonometric form of complex numbers
• Next by thread: Re: Trigonometric form of complex numbers