EquationSymbolicSolveRequest[List[Equal[Exponent[x,y],2]],List[x]]Solution[{x,ExpressionSetPoint[Exponent[2,Divide[1,y]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Exponent[x,y],2]],List[y]]Solution[{y,ExpressionSetPoint[LogB[x,2],False,ReservedReal]}]GraphingShow3D[PlotEq3D[Equal[Exponent[x,y],2]],Options[Option[ShowWireframe,false],Option[ViewAngle,26.787,-163.119,55.42]]]GraphingShow3D[Plot3D[Exponent[x,y]],Plot3D[2],Options[Option[ShowWireframe,false],Option[ViewAngle,8.958,-101.962,82.466]]]GraphingShow2D[PlotEq2D[Equal[Exponent[x,y],2],Options[Option[RangeX,-0.933,3.067],Option[RangeY,-22.76,24.24]]],Options[Option[RangeX,-0.933,3.067],Option[RangeY,-22.76,24.24]]]EquationSymbolicSolveRequest[List[Equal[Exponent[2343,y],2]],List[y]]Solution[{y,ExpressionSetPoint[LogB[2343,2],False,ReservedReal],0.0893324444155}]EquationSymbolicSolveRequest[List[Equal[Exponent[8,y],2]],List[y]]Solution[{y,ExpressionSetPoint[1/3,False,ReservedReal],0.3333333333333}]