EquationSymbolicSolveRequest[List[Equal[Product[m,a_2],Exponent[n,δ]]],List[δ]]Solution[{δ,ExpressionSetPoint[LogB[n,Product[m,a_2]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Product[m,a_2],Exponent[n,δ]]],List[n]]Solution[{n,ExpressionSetPoint[Exponent[Product[m,a_2],Divide[1,δ]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Product[m,a_2],Exponent[n,δ]]],List[m]]Solution[{m,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[n,δ],a_2],NotEqual[a_2,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Product[m,a_2],Exponent[n,δ]]],List[a_2]]Solution[{a_2,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[n,δ],m],NotEqual[m,0]],False,ReservedReal]}]GraphingShow2D[PlotEq2D[Equal[Product[x,y_2],Exponent[z,δ]],Options[Option[RangeX,-0.414,2.414],Option[RangeY,-2.828,2.828]]],Options[Option[ArgRangeValue,y_2,0,1.32,2],Option[ArgRangeValue,z,0,0.46,2],Option[ArgRangeValue,δ,0,2,2],Option[RangeX,-0.414,2.414],Option[RangeY,-2.828,2.828]]]