How to display all complex solutions of an expression

Questions
, ,
1

Hello everyone, I’m recently working with complex numbers and trying to figure out a way to say to Mathematica 10 to compute in
c.png
and not in
r.png
. I mean, when I prompt
3.png
my outpu is obviously 1, since
c.png
set allows three results for this expression, I would like to make them all displayed like :

sist.png
sist.png290×238 2.27 KB

I searched on the manual and on internet for domain restrictions and stuff like that, but I could not find anything helpful.
I hope someone will help me, thank you!

2

In[2]:= Solve[x^3 == 1, x] // ComplexExpand

Out[2]= {{x -> 
   1}, {x -> -(1/2) - (I Sqrt[3])/2}, {x -> -(1/2) + (I Sqrt[3])/2}}
3

If you really insist on that form of output, here is a hack using obscure typesetting commands:

HoldForm[DisplayForm@RadicalBox[1, 3]] == 
 DisplayForm@
  Cell[BoxData[
    RowBox[{"{", 
      Grid[{z} /. ComplexExpand[Solve[z^3 == 1, z]], 
       Alignment -> Left]}]], SpanMaxSize -> Infinity]

I wonder if it can be done more easily…

I would like to insert a TraditionalForm, but anybody knows where?