.00 .002 参,01 实验4数刚体{由x=√,n=12确定,研究它们的极限 1≈xn+yn 程序: fx y]: =Sqrtlx yk: glx y]: =(x+y xn=l; yn=2 For[n=2,n<=100,n++ xXn, y=yn xn=Nfx, y: yn=Ngx, y];] Print[x100=,xn, y100="yn: 结果: x100=1.45679y100=1.45679 实验5设a=、4=√,研究该数列极限 程序: a[n]=(2+an-1(12a[lj=2^(1/2) an=Table[a[i],i, 1, 2001]: ListPlot[an, PlotStyle->PointSize[0.02J] 结果实验4 数列 和 由 确定，研究它们的极限 程序： f[x_,y_]:=Sqrt[x*y];g[x_,y_]:=(x+y)/2; xn=1;yn=2; For[n=2,n<=100,n++, x=xn;y=yn;xn=N[f[x,y]];yn=N[g[x,y]];]; Print["x100=",xn, " y100=",yn]; 结果： x100= 1.45679 y100= 1.45679 实验5 设 ，研究该数列极限 程序： a[n_]:=(2+a[n-1])^(1/2);a[1]=2^(1/2); an=Table[a[i],{i,1,200}]; ListPlot[an,PlotStyle->PointSize[0.02]]; 结果：