展开 mathematica求最小