The three cube roots of 8

using Mathematica

NSolve[x^3'8,x]

{{x'-1.-1.73205 '},{x'-1.+1.73205 '},{x'2.}}

N[2*'(4*'*p/3) ]

-1.-1.73205 '

N[2*'(2*'*p/3) ]

-1.+1.73205 '

N[2*'(0*'*p/3) ]

2.

ListPlot[Map[{Re[#],Im[#]}&,x/.Solve[x³'8]],PlotRange'2.1,

AspectRatio'Automatic,PlotStyle'PointSize[0.03]]