mathematica 线性数据拟合
mathematica 线性数据拟合
怎么拟合出来的斜率相差这么大的?望指教
rr = {{0.34506,0},{0.35466,0.005},{0.36366,0.01},{0.37344,0.015},{
0.38256,0.02},{0.392,0.025}{0.4015,0.03},{0.41124,
0.035},{0.42044,0.04},{0.43014,0.045}}
k = Fit[rr,{1,x},x]
f = Plot[k,{x,0.34,0.45}]
g = ListPlot[rr]
Show[f,g]