EquationSymbolicSolveRequest[List[Equal[x,Exponent[μ,2]]],List[x]]Solution[{x,ExpressionSetPoint[Exponent[μ,2],False,ReservedComplex]}]EquationSymbolicSolveRequest[List[Equal[Product[x,y],Exponent[μ,2]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[μ,2],y],NotEqual[y,0]],False,ReservedComplex]}]Solution[{x,ExpressionWithCondition[ReservedEmpty,And[Equal[y,0],NotEqual[μ,0]]]}]Solution[{x,ExpressionWithCondition[ReservedComplex,And[Equal[μ,0],Equal[y,0]]]}]GraphingShow2D[PlotEq2D[Equal[Product[x,y],Exponent[μ,2]]]]EquationSymbolicSolveRequest[List[Equal[Product[x,y,z],Exponent[μ,2]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[μ,2],Product[y,z]],NotEqual[Product[y,z],0]],False,ReservedComplex]}]Solution[{x,ExpressionWithCondition[ReservedEmpty,And[Equal[Product[y,z],0],NotEqual[μ,0]]]}]Solution[{x,ExpressionWithCondition[ReservedComplex,And[Equal[μ,0],Equal[Product[y,z],0]]]}]GraphingShow3D[PlotEq3D[Equal[Product[x,y,z],Exponent[μ,2]]]]