研究下列数列的极限：
　　(2) ，，，。

【重复实验】

　　实验代码：

kill(all)$[r,x[1],y[1]]:[8,1,2]$
x[k]:=sqrt(x[k-1]*y[k-1])$
y[k]:=1/2*(x[k-1]+y[k-1])$
X:makelist(x[k],k,1,r),numer;
Y:makelist(y[k],k,1,r),numer;

 

load(draw)$
wxdraw2d(yrange=[0,3],grid=true, 

    point_type =8,point_size =2,

    points(X),
    color=red, point_type = 7,point_size = 1,

    points(Y));

　　执行结果：