EquationSymbolicSolveRequest[List[Equal[m,Exponent[LogN[Product[ConstE,k]],2]]],List[m]]Solution[{m,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[Sum[LogE[k],1],2],Exponent[LogE[10],2]],GreaterThan[k,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[18,Exponent[LogN[Product[ConstE,k]],2]]],List[k]]Solution[{k,ExpressionSetPoint[Exponent[ConstE,Sum[Product[3,Sqrt[2],LogE[10]],-1]],False,ReservedReal],6432.0025099732366}]Solution[{k,ExpressionSetPoint[Exponent[ConstE,Sum[Negative[Product[3,Sqrt[2],LogE[10]]],-1]],False,ReservedReal],Product[2.104092512818,Exponent[10,-5]]}]GraphingShow2D[PlotEq2D[Equal[x,Exponent[LogN[Product[ConstE,Aggregate[y]]],2]]]]