(2) 观察数列当时的变化趋势。

【重复实验】

　　实验代码：

a:makelist(k, k, 1, 15),numer$
xx:makelist(x[k]:(2*k^3+1)/(5*k^3+1), k, 1, 15),numer$
wxplot2d([discrete,a,xx],[style,[points,1,5,1]]);

wxdraw2d(grid=true,point_type = 7,

     point_size = 1,color =red,points(a,xx));

f(x):=(2*x^3+1)/(5*x^3+1);
kk:[500,1000,5000,10000,100000];
M:map('f,kk),numer; 

M-1.0; 

　　执行结果：