EquationSymbolicSolveRequest[List[Equal[LogN[μ],x]],List[x]]Solution[{x,ExpressionSetPoint[LogN[μ],False,ReservedComplex]}]EquationSymbolicSolveRequest[List[Equal[Product[LogN[μ],x],y]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Product[y,LogB[μ,10]],NotEqual[μ,1]],False,ReservedComplex]}]Solution[{x,ExpressionWithCondition[ReservedEmpty,And[Equal[μ,1],NotEqual[y,0]]]}]Solution[{x,ExpressionWithCondition[ReservedComplex,And[Equal[μ,1],Equal[y,0]]]}]GraphingShow2D[PlotEq2D[Equal[LogN[μ],Product[x,y]]],Options[Option[ArgRangeValue,μ,0,2,2],Option[RangeX,-2,2],Option[RangeY,-1,1]]]GraphingShow3D[PlotEq3D[Equal[LogN[μ],Product[y,x,z]]]]