研究下列数列的极限：
　　(1) ，；

【重复实验】

　　实验代码：

load(draw)$
xx[0]:1$
a:makelist(k,k,1,10)$
xx:makelist(xx[k]:1/2*(xx[k-1]+3/xx[k-1]),k,1,10),numer;
wxdraw2d(yrange=[-1,3],color=red,points(a,xx));

load(solve_rec);
assume(n,integer)$
solve_rec(a[n+1]=1/2*(a[n]+3/a[n]),a[n],a[1]=2);

solve(x=1/2*(x+3/x));

　　执行结果：