Mathematica で方程式を解く方法を教えてください.