EquationSymbolicSolveRequest[List[Equal[Minus[x,y],Exponent[z,2]]],List[x]]Solution[{x,ExpressionSetPoint[Sum[y,Exponent[z,2]],False,ReservedReal]}]GraphingShow2D[PlotEq2D[Equal[Minus[x,y],Exponent[z,2]]]]