怎么用mathematica 解一元线性方程组.还有怎么对数据进行线性拟合