EquationSymbolicSolveRequest[List[Equal[α,Product[Divide[4,3],PI,Exponent[r,3]]]],List[α]]Solution[{α,ExpressionSetPoint[Divide[Product[4,PI,Exponent[r,3]],3],False,ReservedComplex]}]EquationSymbolicSolveRequest[List[Equal[α,Product[Divide[4,3],PI,Exponent[r,3]]]],List[r]]Solution[{r,ExpressionSetPoint[Product[Cbrt[Divide[Product[3,Abs[α]],Product[4,PI]]],Exponent[ConstE,Divide[Product[Arg[α],&i],3]]],False,ReservedComplex]}]Solution[{r,ExpressionSetPoint[Product[Cbrt[Divide[Product[3,Abs[α]],Product[4,PI]]],Exponent[ConstE,Divide[Sum[Product[Arg[α],&i],Product[2,PI,&i]],3]]],False,ReservedComplex]}]Solution[{r,ExpressionSetPoint[Product[Cbrt[Divide[Product[3,Abs[α]],Product[4,PI]]],Exponent[ConstE,Divide[Sum[Product[Arg[α],&i],Product[4,PI,&i]],3]]],False,ReservedComplex]}]WorksheetAssign[α,Product[Divide[4,3],PI,Exponent[r,3]]]Divide[Product[4,PI,Exponent[r,3]],3]Assign[α,Product[4/3,PI,Exponent[r,3]]]