利用Mathematica解方程