极限与连续性实验.docVIP

极限与连续性实验 一、实验目的 观察数列和函数的变化的图形，深入理解极限的概念，掌握用Mathematica计算极限的方法.理解函数连续性的概念，观察函数的各类间断点的情况. 了解闭区间上连续函数的性质，掌握使用两分法求函数零点的原理和程序. 二、实验内容与Mathematica命令 1. 数列与数列极限 (1) 数列与数列变化 Mathematica中定义数列a[n]，自变量n取自然数值，可以使用Table函数输出数列的各个项. 例1 输出数列的前十项. 解 输入如下命令并执行后得到 a[n_]:=(-1)^(n-1)(n^2+n)/(2^n+1) b=Table[a[n],{n,1,10}] 为了观察数列的变化，使用绘制散点图的命令 ?????ListPlot[list,options] 其中，list为数列的各项组成的表，绘制出点列(n,a[n])组成的散点图. 输出上例中a[n]的散点图，输入 ListPlot[b, PlotStyle-{Blue,PointSize[0.015]}] 其中，选项PlotStyle中，选择点的颜色为蓝色，点的大小(PointSize)设为0.015(这个数值越大，点越大).执行后得到图1(注: 为了便于观察数列的变化情况，此处的表b中包含数列的前20项). 图1 如加入选项“PlotJoined-True”，表示用折线将散点连接起来： ListPlot[b,PlotStyle-Blue,PlotJoined-True]; 执行后输出图2.根据图可以看到随着n逐渐增大，a[n]的值越来越接近于0. 图2 (2) 数列极限 求数列a[n]的极限的命令是 ?????Limit[a[n],n-Infinity] “n-Infinity”即 例如，求例1中给定的数列的极限，输入下列命令并执行后得到该数列的极限为0. Limit[a[n],n-Infinity] 0 例2 求数列 解 计算本例所示的数列的极限，需要使用求和函数Sum[]，输入下列命令并执行后得到 a[n_]:=Sum[k^2/n^3,{k,1,n}] (* 即 *) Limit[a[n],n-Infinity] Mathematica是一个计算效率极高的数学软件，它的许多函数或命令不仅能作用于一个表达式上，而且可以作用于一个以表达式为元素的表，例如，如果要求出多个数列的极限，可以定义一个以这些数列的表达式为元素的表，再对此表执行求极限的命令，就可以一次批量地求出许多数列的极限. 例3 求下列极限：(1)；(2)；(3)；(4). 解 输入 sets={(2 n+Sqrt[n]+1)/(Sqrt[n]-2)^2,(n/(n+1))^n, (1+1/n)^(3 n-1),(1/n) Sin[n Pi/2]}; Limit[sets,n-Infinity] 执行后得到表sets中定义的四个数列的极限. 2. 函数极限 计算函数极限的命令也是 ?????Limit[f[x],x-x0] 其中，“x-x0”表示自变量的变化过程，x0可以是一个数值，也可以是“Infinity”(即)，或者是“-Infinity”(即-). 例4 计算极限，，. 解 输入 Limit[Sin[x]/x, x-0] Limit[ArcTan[x], x--Infinity] Limit[ArcCos[1/2+1/x], x-Infinity] 执行后输出它们的极限顺次是1、、. 要计算左右极限，只需补充变量变化的方向，即添加“Direction-1(或-1)”，分别表示左右极限. 例5 计算，，输入 {Limit[Abs[x]/x,x-0, Direction-1], Limit[Abs[x]/x,x-0, Direction--1]} ??????? 又如执行下面的命令，分别得到和. Limit[Tan[x],x-Pi/2, Direction-1] Limit[Tan[x],x-Pi/2, Direction--1] 如果几个函数的变化过程相同，也可以同时求出它们的极限. 例6 求下列函数的极限(1) ；(2) ；(3) . 解 输入并执行后得到它们的极限值. group={ArcSin[2 x]/(Sqrt[x+1]-1),(1-Cos[2 x])/(x Sin[x]), Log[1+Sin[x]]/Tan[3 x]}; Limit[group,x-0] 3. 函数的连续性 我们知道如果，则称函数在点处连续. Mathematica中，一般根据函数的图形，其连续性一目了然.不过，我们也可以用连续性定义验证在一个点处的函数