数学实验 Mathematic实验四 导数应用.doc

天水师范学院数学与统计学院 实验报告 实验项目名称 导数应用 所属课程名称 数学实验 实 验 类 型 微积分实验 实 验 日 期 2011.10.12 班 级 学 号 姓 名 成 绩 一、实验概述： 【实验目的】 1.理解并掌握用函数的导数确定函数的单调区间、凹凸区间和函数的极值的方法; 2.理解曲线的曲率圆和曲率的概念; 3.进一步熟悉和掌握用Mathematica作平面图形的方法和技巧; 4.掌握用Mathematica求方程的根(包括近似根)和求函数极值(包括近似极值)的方法. 【实验原理】 1.求多项式方程的近似根的命令NSolve和NRoots. 命令NSolve的形式是 NSolve[f[x]＝＝0,x] 执行后得到多项式方程的所有根(包括复根)的近似值. 命令NRoots的一般形式是 NRoots[f[x]＝＝0,x,n] 它同样给出方程所有根的近似值,但是二者表示方法不同,在命令NRoots的后面所添加的选项,要求在求根过程中保持位有效数字；没有这个选项时,默认的有效数字是16位. 2.求一般方程的近似根的命令FindRoot 命令的一般形式是 FindRoot[f[x]＝＝0,{x,a},选项] 或者 FindRoot[f[x]＝＝0,{x,a,b},选项] 其中大括号中是方程中的未知数,而和是求近似根时所需要的初值.执行后得到方程在初值附近,或者在初值与之间的一个根. 方程的右端不必是0,形如的方程也可以求根.此外,这个命令也可以求方程组的近似根.此时需要用大括号将多个方程括起来,同时也要给出各个未知数的初值,例如, FindRoot[{f[x,y]＝＝0,g[x,y]＝＝０},{x,a},{y,b}] 由于这个命令需要初值,应先作函数的图形.确定方程有几个根,以及根的大致位置,或所在区间,以分别输入初值求根. 命令的主要选项有： (1)最大选代次数：MaxIterations-n,默认值是15. (2)计算中保持的有效数字位数：WorkingPrecision－ｎ,默认值是16位. 3.求函数极小值的近似值的命令FindMinimum 命令的一般形式是 FindMinimum[f[x],{x,a},选项] 执行后得到函数在初值附近的一个极小值的近似值. 这个命令的选项与FindRoot相同,只是迭代函数的默认值是30 如果求函数的极大值的近似值,可以对函数用这个命令.不过,正确的极大值是所得到的极小值的相反的数. 使用此命令前,也要先作函数的图形,以确定极值的个数与初值. 4.作平面图元的命令Graphics. 如果要在平面上作点、圆、线段和多边形等图元,可以直接用命令Graphics,再用命令Show在屏幕上显示.例如: g1=Graphics[Line[{{1,-1},{6,8}}]] Show[g1] 执行后得到以(1,-1)和(6,8)为端点的直线段.这个图形只是一条线段,没有坐标轴.如果要画出坐标轴,只要在Show命令中添加选项Axes一True即可.输入 Show[g1,Axes?True] 实际上,Show命令中可以添加命令Grapnics的所有选项.如在实验一中提到的AspectRatio,PlotRange等选项.如果要作出过已知点的折线,只要把这些点的坐标组成的集合放在命令Line[　]之内即可.如输入 Show[Graphics[Line[{{0,0},{1,2},{3,-1}}]],Axes?True]. 【实验环境】 Mathematic 4 二、实验内容： 【实验方案】 1.求函数的单调区间; 2.求函数的极值; 3.求函数的凹凸区间和拐点; 4.求极值的近似值; 5.证明函数的不等式. 【实验过程】（实验步骤、记录、数据、分析） 1.求函数的单调区间. 例4.1　求函数的单调区间. 输入 Clear[f1]； f1[x_]:=x^3-2x+1； Plot[{f1[x],f1[x]},{x,-4,4},PlotStyle{GrayLevel[0.01],Dashing[{0.01}]}]Solve[f1[x]＝＝0,x] f1[-1] f1[0] f1[1] 2.求函数的极值. 例4.2　求函数的极值. f2[x_]:=x/(1+x^2)； Solve[f2[x0,x] f2[-1] f2[1] f2[0] 3.求函数的