EquationSymbolicSolveRequest[List[Equal[Product[m,Minus[Exponent[a,2],Exponent[b,2]]],x]],List[x]]Solution[{x,ExpressionSetPoint[Product[m,Sum[Exponent[a,2],Negative[Exponent[b,2]]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Product[m,Minus[Exponent[a,2],Exponent[b,2]]],x]],List[m]]Solution[{m,ExpressionSetPoint[ExpressionWithCondition[Divide[x,Sum[Exponent[a,2],Negative[Exponent[b,2]]]],NotEqual[Sum[Negative[Exponent[b,2]],Exponent[a,2]],0]],False,ReservedReal]}]Solution[{m,ExpressionWithCondition[ReservedEmpty,And[Equal[Sum[Negative[Exponent[b,2]],Exponent[a,2]],0],NotEqual[x,0]]]}]Solution[{m,ExpressionWithCondition[ReservedReal,And[Equal[x,0],Equal[Sum[Negative[Exponent[b,2]],Exponent[a,2]],0]]]}]EquationSymbolicSolveRequest[List[Equal[Product[m,Minus[Exponent[a,2],Exponent[b,2]]],x]],List[b]]Solution[{b,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Divide[Sum[Product[m,Exponent[a,2]],Negative[x]],m]],And[GreaterOrEqual[Divide[Sum[Negative[x],Product[m,Exponent[a,2]]],m],0],NotEqual[m,0]]],False,ReservedReal]}]Solution[{b,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Divide[Sum[Product[m,Exponent[a,2]],Negative[x]],m]]],And[GreaterOrEqual[Divide[Sum[Negative[x],Product[m,Exponent[a,2]]],m],0],NotEqual[m,0]]],False,ReservedReal]}]Solution[{b,ExpressionWithCondition[ReservedEmpty,And[Equal[m,0],NotEqual[x,0]]]}]Solution[{b,ExpressionWithCondition[ReservedReal,And[Equal[m,0],Equal[x,0]]]}]EquationSymbolicSolveRequest[List[Equal[Product[m,Minus[Exponent[a,2],Exponent[b,2]]],x]],List[a]]Solution[{a,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Divide[Sum[x,Product[m,Exponent[b,2]]],m]],And[GreaterOrEqual[Divide[Sum[x,Product[m,Exponent[b,2]]],m],0],NotEqual[m,0]]],False,ReservedReal]}]Solution[{a,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Divide[Sum[x,Product[m,Exponent[b,2]]],m]]],And[GreaterOrEqual[Divide[Sum[x,Product[m,Exponent[b,2]]],m],0],NotEqual[m,0]]],False,ReservedReal]}]Solution[{a,ExpressionWithCondition[ReservedEmpty,And[Equal[m,0],NotEqual[x,0]]]}]Solution[{a,ExpressionWithCondition[ReservedReal,And[Equal[m,0],Equal[x,0]]]}]GraphingShow2D[Plot2D[Product[m,Minus[Exponent[a,2],Exponent[b,2]]]],Plot2D[x],Options[Option[ArgRangeValue,m,0,0.4,2],Option[ArgRangeValue,b,0,0.22,2],Option[ArgRangeValue,a,0,0.36,2],Option[RangeX,-2,2],Option[RangeY,-4,4]]]GraphingPlotEq2D[Equal[Product[m,Minus[Exponent[a,2],Exponent[b,2]]],x]]EquationSymbolicSolveRequest[List[Equal[Product[m,Minus[Exponent[x,2],Exponent[y,2]]],z]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Divide[Sum[Product[m,Exponent[y,2]],z],m]],And[GreaterOrEqual[Divide[Sum[z,Product[m,Exponent[y,2]]],m],0],NotEqual[m,0]]],False,ReservedReal]}]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Divide[Sum[Product[m,Exponent[y,2]],z],m]]],And[GreaterOrEqual[Divide[Sum[z,Product[m,Exponent[y,2]]],m],0],NotEqual[m,0]]],False,ReservedReal]}]Solution[{x,ExpressionWithCondition[ReservedEmpty,And[Equal[m,0],NotEqual[z,0]]]}]Solution[{x,ExpressionWithCondition[ReservedReal,And[Equal[m,0],Equal[z,0]]]}]GraphingShow3D[PlotEq3D[Equal[Product[m,Minus[Exponent[x,2],Exponent[y,2]]],z]],Options[Option[ArgRangeValue,m,0,0.96,2],Option[ShowWireframe,false],Option[ViewAngle,17,-106,86],Option[RangeX,-2,2],Option[RangeY,-2,2],Option[RangeZ,-5,5]]]GraphingShow2D[PlotEq2D[Equal[Product[m,Minus[Exponent[x,2],Exponent[y,2]]],z]]]