EquationSymbolicSolveRequest[List[Equal[Abs[x],Product[Exponent[y,2],z]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Product[z,Exponent[y,2]],GreaterOrEqual[Product[z,Exponent[y,2]],0]],False,ReservedReal]}]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Negative[Product[z,Exponent[y,2]]],GreaterOrEqual[Product[z,Exponent[y,2]],0]],False,ReservedReal]}]GraphingShow2D[PlotEq2D[Equal[Abs[x],Product[Exponent[y,2],z]]]]