EquationSymbolicSolveRequest[List[Equal[Sin[M],Divide[E,k]]],List[k]]Solution[{k,ExpressionSetPoint[ExpressionWithCondition[Divide[E,Sin[M]],NotEqual[Product[E,Csc[M]],0]],False,ReservedReal]}]Solution[{k,ExpressionSetPoint[ExpressionWithCondition[0,Equal[E,0]],True,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Sin[M],Divide[E,k]]],List[M]]Solution[{M,ExpressionSetPoint[ExpressionWithCondition[Sum[Product[2,PI,&N_1],ASin[Divide[E,k]]],And[LessOrEqual[Divide[E,k],1],GreaterOrEqual[Divide[E,k],-1],NotEqual[k,0]]],False,ReservedReal]}]Solution[{M,ExpressionSetPoint[ExpressionWithCondition[Sum[Product[2,PI,&N_2],Negative[ASin[Divide[E,k]]],PI],And[LessOrEqual[Divide[E,k],1],GreaterOrEqual[Divide[E,k],-1],NotEqual[k,0]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Sin[M],Divide[E,k]]],List[E]]Solution[{E,ExpressionSetPoint[ExpressionWithCondition[Product[k,Sin[M]],NotEqual[k,0]],False,ReservedReal]}]