实验二数列的极限.docVIP

实验二 数列的极限 [实验目的] 1. 加深对数列极限概念的认识； 2. 决与极限有关的一些实际问题。 3. 数列极限的定义是高等数学的起点，理解和掌握它对于学好后面的内容十分重要。本实验将从直观上揭示数列极限的本质，并讨论一些特殊数列的收敛问题和极限的应用问题。 §1 基本理论 1.1 数列极限的定义 对于数列{an}和常数A,如果对任意的大于0的数ε，总存在自然数N,使得当nN时，恒有不等式︳an-A︴ε成立，则称常数A为数列{an}的极限，记为 =A 。 1.2 数列极限存在准则　 单调有界数列必有极限； 若对任意ε〉０，，存在自然数N,使得当n,mN时，恒有｜－｜〈ε成立，则数列{an}必收敛； 对数列{}，{}，{}，如果对所有的n，不等式成立，且＝＝Ａ，则数列{}收敛，且＝ＡA=N[Table[n^(1/n),{n,1,100}]] 为了更清楚地观察其是否收敛，读者可将项数增大一些. 对于该数列，我们再用语句 ListPlot[a] 画出其散点图，借助于图形来观察它的变化趋势，其图形如2.1所示. 图2.1数列的散点图 从图2.1可看出，这个数列似乎收敛1，但如何说明它收敛于1，而不是收敛于大于1的某个数呢（由 若极限存在，则极限必不小于1）？ 设该数列收敛于A=1+u（u=0）,我们取u=10-2，用程序来检察 于A=1+u接近的程序. U=10^-2; A=1+u; M=5; N=3 An=Sqrt[3]; While[Abs[A-an]=10^--m,n++; An=N[n^(1/n)] ]; Print[“k=”,k,”n=”,”an=”,an, “Abs[A-an]=,”,Abs[A=an]] 结果为： k=2 n=651 an=1.01时，an与1=10-2的距离小于10-5. 练习2 编程判断数列 中有多少项落在1+u（u=10-2）的10-m邻域内？当n充分大时，｛｝还在该邻域内吗？取m为其他的数重复上面的实验。 练习3 取其他的u（多取几个）重复上面的实验。 练习4 取 u=0，即A=1，重复实验2. 练习5将以上三个练习的结果与极限定义相对照，你会发现什么？ 练习6用与上面类似的方法讨论数列｛（-1）^n+Sin[n]｝的极限是否存在。 2.2极限的计算 在Mathematica软件中可以直接命令Limit来求极限，其一般格式是 Limit[表达式，趋向过程] 需要指出的是 对函数而言，上式求出的仅仅是右极限，若要求左极限，需在后指明趋向的方向； 练习7 试比较下面两条语句的区别。 Limit[E^(-1/x),x-0] Limit[E^(-1/x),x-0,Direction-1] 在试图求无穷振荡点处的极限时， Limit语句得到的是函数振荡时可能的取值范围； J练习8 观察语句Limit[Sin[1/x],x-0]的结果。 3．对于通项已知的数列，有时需将表达式的形式改变后才能得到正确答案。 练习9 用Limit命令求极限时比较 Limit[(n+1)^(n+1)/((n+2)*n^n),n-Infinity] Limit[(n+1)/n^(n+1)*n/(n+2).,n-Infinity] 的区别。 练习10 用Limit命令求下列极限 ，nsin，sin，sin， 并指出它们之间的关系。 练习11 由上题的结果，你能得到关于“函数的极限与该函数子列的极限”的 什么结论？能否严格证明它？ X1=1,, ,n=1,2,… +. ｛｝与｛｝的极限存在吗？用Mathematica软件编写如下程序进行观察： Clear[f,g]; f[]:=Sqrt[x*y]; g[];=(x+y)÷2; xn=1;yn=2; For[n=2,n=100,n++, XN=xn;yN=yn; Xn=N[f[xN,yN]];yn=N[g[xN,yN]]; ]; Print[“x100=”,xn,“y100=”,yn] 运行该程序可判断出：｛｝与｛｝有极限，且这两极限值是相等的(x100=1.45679 y100=1.45679) 练习12 严格证明上述结论。 已知数列{}，由=（++……）（n=1，2，……）确定懂得额数列{}称 为数列{}的算术平均。设{}由（2.1）式给出,现来观察数列{}有无极限,可接着上面的 程序编程: Clear[f,g]; f[x-,y-]:=Sqrt[x*y];g[x-,y-]:=(x+y)/2; s=xn=1;yn=2;n=1; Whil