数学建模线性拟合与非线性拟合

ianxi1biao[[i,2]]-f[lianxi1biao[[i,1]]])^2,{i,1,10}]Р得出残差Р图形如下:Р(二)非线性拟合Р一、1、先对习题2的数据用二次多项式函数线性拟合,程序如下РClear[gp,fp];Р k= 2;Рlianxi2biao={{1,4},{2,6.4},{3,8.0},{4,8.4},{5,9.28},{6,9.5},{7,9.7},{8,9.86},{9,10.0},{10,10.2},{11,10.32},{12,10.42},{13,10.5},{14,10.55},{15,10.58},{16,10.6}}Рgp=ListPlot[lianxi2biao,PlotStyle->{RGBColor[0,1,0],PointSize[0.04]}]Р散点图如下Р求出二次多项式函数,程序如下:Рft2=Fit[lianxi2biao,Table[x^i,{i,0,k}],x]Р fp=Plot[ft2,{x,0,17},PlotStyle->{RGBColor[1,0,0]}]Р Show[gp,fp]Р得出函数为Р图形如下:Р代入以下程序中的f(x)Р计算出残差为:Р2、对习题2的数据用三次多项式函数线性拟合,程序如下РClear[gp,fp];Р k=3;Р lianxi2biao={{1,4},{2,6.4},{3,8.0},{4,8.4},{5,9.28},{6,9.5},{7,9.7},{8,9.86},{9,10.0},{10,10.2},{11,10.32},{12,10.42},{13,10.5},{14,10.55},{15,10.58},{16,10.6}}Рgp=ListPlot[lianxi2biao,PlotStyle->{RGBColor[0,1,0],PointSize[0.04]}]Р散点图为