mathematica直线拟合时如何将散点图与直线都显示出来
mathematica直线拟合时如何将散点图与直线都显示出来
data1 = {{0.13,5.05},{0.14,6.03},{0.15,7.01},{0.15,8.03},{0.16,9.04},{0.17,10.03},{0.18,11.02},{0.19,12.00}} fun1 = Fit[data1,{1,x},x] f = Plot[fun1,{x,5.05,12.00}] g = ListPlot[data1] Show[f,g] 这样不能画到一张图上.