Question: To find the equation to fit the graph nearest to the pointplot

My problem is to find the right equation to get the best plot to the data shown below, please commen on it

 

> restart;

> with(CurveFitting):with(plots);

Warning, the name changecoords has been redefined

Warning, the previous binding of the name Interactive has been removed and it now has an assigned value

 

>

> datax:=[1,1.019,1.040,1.059,1.079,1.100,1.120,1.140,1.160,1.180,1.200];

 

> m:=nops(datax);

 

> datay:=[2.626,3.007,2.955,2.982,2.940,3.527,6.433,16.172,36.477,106.440,394.928];

 

> m:=nops(datay);

 

 

 

> points:= [seq([datax[i],datay[i]],i=1..m)]:

> pointplot(points);

 

>  

>  

 

>  

 

>  

 

> graph1:=pointplot(points):

>  

 

> pp:=LeastSquares(points,x,curve=(a*(Y1(x))+b*(Y2(x))+c*(Y3(x))));

 

>

> plot(pp(x),x=datax[1]..datax[m]);

 

Please Wait...