数学试验()49122.pptVIP

While[test,body] 只要test为真，则重复计算执行主体body For[start,test,incr,body] 以start为起始值，重复计算执行主体body 和执行表达式incr改变循环变量的值，直到 test为假。 注意：当条件满足时，While循环一直进行，因此为了防止死循环，在While 中应包括命令能改变test的值。 另：有时需要改变正常的循环顺序，这时需要用“Break”命令，它的调用格式：Break[],表示中断并退出循环。 二、观察数列的极限 数学软件Mathematica中用于求数列和函数的极限的命令“Limit” 格式有 Limit[an,n??] 求数列an的极限 Limit[expr,x?x0] x趋向于x0时， expr的极限 Limit[expr,x?x0,Direction?1] 求expr当x趋向于x0时的右极限 Limit[expr,x?x0,Direction?-1] 求expr当x趋向于x0时的左极限 一、观察数列的极限 而本实验主要的目的是利用数学软件Mathematica加深对数列极限概念的理解。 对于数列极限通俗的说法是：当n充分大时，an充分接近数A，则 。我们通过利用Mathematica来计算数列{an}足够多项的值，从而考察数列的极限。 例1 用数、形结合的方法观察极限 。 解：通过逐渐增加点并画点图，来观察当n越来越大时的 变化趋势。 为此，我们先利用Mathematica构造数据表data，其中包含了数列 的前十项： data=Table[i Sin[1/i],{i,10}] 然后我们利用绘制点图的命令“ListPlot”来绘出这前10个点： ListPlot[data,PlotRange?{0,2},PlotStyle?PointSize[0.018]] 运行后得到点图1-1。 我们还可以改变Table命令，增加绘制的点数，从而根据点图来观察，数列{an}足够多项的值，观察数列的变化趋势,从而观察该数列的极限。 另外，通过以下的循环语句，我们可以得到16幅图，图1-2中列出了其中的4幅，从左至右图中点数逐渐增多，从图中可以看出所画出的点逐渐接近于直线：y=1 aa={Sin[1],2Sin[1/2],3Sin[1/3]}; Do[aa=Append[aa,i Sin[1/i]]; ListPlot[aa,PlotRange?{0,2},Plot Style?PointSize[0.018]],{i,4,20}] 例2：设数列{xn}与{yn}由下式确定： 观察数列{xn}与{yn}的极限是否存在。 解：输入以下语句可进行观察，此程序的功能是输出{xn}与{yn}的前10项数值。大家可改变For循环中终结语句（n?10）来改变输出项的项数。 运行该程序可得： 大家可以由运行结果可观察到， {xn}与{yn}均有极限，且这两极限值是相等的。 实验习题1 1.根据上面的实验步骤，通过作图，观察重要极限： 。 2. 设数列{xn}由下列递推关系式给出： 观察数列 的极限。 三 一元函数的绘图 一、点图的绘制 用一个表给出点列中各点的坐标，用函数“ListPlot”可以绘制这些点列的图形，其调用格式为： ListPlot[{y1,y2, …}] 画出点对(1,y1),(2,y2),… ListPlot[{{x1,y1},{x2,y2}, …}] 画出点对(x1,y1),(x2,y2),… 其中“数集{y1,y2, …}”也可以由“Table”命令产生。如果要把相邻点用直线连接起来可加选项“PlotJoined?True”，其默认值是“False”，即不连接。 二、一元显函数图形的绘制 在平面直角坐标系中绘制函数y=f(x)在区间 [a,b]的图形是函数“Plot”,其调用格式为： Plot[f(x),{x,a,b},选项]. 同时绘制多个函数的调用格式为： Plot[{f1(x),f2(x),…},{x,a,b},选项]。 作图命令“Plot”可带很多选项，现对常用的一些选项介绍如下： PlotRange 作图区域，格式为: PlotRange?{因变量最小值,因变量最大值}； Pl