原创力文档- 1、本文档共7页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
数学与统计学院
实验报告
实验项目名称
所属课程名称
实验类型
实验日期
班级
学号
姓名
成绩
一、实验概述：
【实验目的】
1.
掌握用Mathematica计算不定积分与定积分的方法。
2.
通过作图和观察，深入理解定积分的概念和几何意义．
3.
理解变上限积分概念．提高应用定积分解决各种问题的能力。
【实验原理】
1．积分命令Integrate
命令Integrate既可以用于计算不定积分，也可以用于计算定积分．
用于求不定积分时，其形式为
Integrate[f[x],x]
用于求定积分时，其形式为
Integrate[f[x],{x,a,b}]
这里a是积分下限，b是积分上限．
Mathemtica中，有很多的命令可以用相应的运算符号来代替．例如命令Integrate可用积分
号代替，命令Sum可以用连加号∑代替，命令product可用连乘号代替．因此只要调
出这些运算符号，就可以代替通过键盘输入命令．怎么调出它们呢？只要打开左上角的File菜
单，点击Palettes中的BasicCalculations，再点击Calculus就可以得到不定积分号、定积分号、
求和号、求导数号等等．为了行文方便，下面仍然使用键盘输入命令，但也可以试用这些数学
符号直接计算．
2．数值积分命令NIntegrate
该命令只用于求定积分的近似值，其形式为
NIntegrate[f[x,{x,a,b}]]
3．循环语句For
循环语句的基本形式是
For[循环变量的起始值，测试条件，增量，运算对象]
运行此命令时，将多次对后面的对象进行运算，直到循环变量不满足测试条件目为止．这
里必须用三个逗号分开这四个部分．如果运算对象由多个命令组成，命令之间用分号隔开
【实验环境】
Lenovo：Intel(R)Core(TM)i5-2430MCPU@2.40GHz4.00GB的内存
Windows-7PC
Mathematic5.2
二、实验内容：
【实验方案】
1．用定义计算定积分
2．不定积分计算
3．定积分计算
4．变上限积分
5．定积分应用
【实验过程】（实验步骤、记录、数据、分析）
1．用定义计算定积分
1
例5.l计算x2dx的近似值
0
Clear[s1，s2]；
s1[f_，{a_，b_}，n_]:=N[(b-a)/n*Sum[f[a+k*(b-a)/n]，{k，0，n-1}]]；
s2[f_，{a_，b_}，n_]:=N[(b-a)/n*Sum[f[a+k*(b-a)/n]，{k，1，n}]]；
Clear[f]；f[x_]=x^2；
js1=Table[{2^n，s1[f，{0，1}，2^n]，s2[f，{0，1}，2^n]}，{n，1，10}]；
TableForm[js1，TableHeadings{None，{"n"，"s1"，"s2"}}]
sinx
例5.2计算1dx的近似值
0x
(*Example5.2*)
Clear[g]；
g[x_]=Sin[x]/x；
js2=Table[{n，s2[g，{0，1}，n]}，{n，3，50}]
1
例5.3用定义求定积分x2dx的动画演示
0
(*Example5.3*)
Clear[f，x，a，b，m，g1，tt1，tt2]；
f[x_]=x^2；a=0；b=1.5；m=0；
g1=
文档评论（0）