资源描述：
《实验库1一元函数微分学.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、实验一一元函数微积分学实验5抛射体的运动（综合实验）引言Mathematica可以被用来探索各种各样的可能性,从而能在给定的假设条件下模拟出所求数学问题的解.下面讨论的问题是关于抛射体的飞行的一个样本实验,具体在这里就是研究炮弹在没有空气阻力情况下的运动.我们意图通过这样一个范例,让读者了解如何利用数学实验方法来探索一个数学问题的求解.在你写实验报告时,一定要清楚地解释你做了什么以及为什么要这样做,同时逐步熟悉科学报告的写作方法.问题根据侦察,发现离我军大炮阵地水平距离10km的前方有一敌军的坦克群正以每小时50km向我军阵地驶来,现欲发射炮弹摧毁敌军坦克群.为在最短时间内有效摧毁敌
2、军坦克,要求每门大炮都能进行精射击,这样问题就可简化为单门大炮对移动坦克的精确射击问题.假设炮弹发射速度可控制在0.2km/s至0.6km/s之间,问应选择怎样的炮弹发射速度和怎样的发射角度可以最有效摧毁敌军坦克.说明假设不考虑空气阻力,则炮弹的运动轨迹由参数方程,给出,其中是炮弹发射的初速度,是炮弹的发射角,是重力加速度（9.8m/）.上面第一个方程描述炮弹在时刻的水平位置,而第二个方程描述炮弹在时刻的垂直位置.我们假设大炮位于坐标原点（）,轴正向垂直向上,轴水平指向敌军坦克.下面先利用Mathematica绘图命令显示出炮弹运行的典型轨迹.输入horiz[v_,a_,t_]:=v
3、Cos[aPi/180]tvert[v_,a_,t_]:=vSin[aPi/180]t-(1/2)gt^2g=9.8假定炮弹发射的初速度为0.25km/s,发射角为,输入ParametricPlot[{horiz[250,65,t],vert[250,65,t]},{t,0,50},PlotRange->{0,5000},AxesLabel->{x,y}]得到炮弹运行轨迹的典型图形（图5-1）:图5-1实验报告在上述假设下,进一步研究下列问题:(1)选择一个初始速度和发射角,利用Mathematica画出炮弹运行的轨迹.(2)假定坦克在大炮前方10km处静止不动,炮弹发射的初速度为0
4、.32km/s,应选择什么样的发射角才能击中坦克？画出炮弹运行的几个轨迹图,通过实验数据和图形来说明你的结论的合理性.(3)假定坦克在大炮前方10km处静止不动,探索降低或调高炮弹发射的初速度的情况下,应如何选择炮弹的发射角？从上述讨论中总结出最合理有效的发射速度和发射角.(4)在上题结论的基础上,继续探索,假定坦克在大炮前方10km处以每小时50km向大炮方向前进,此时应如何制定迅速摧毁敌军坦克的方案？实验6一元函数积分学(基础实验)实验目的掌握用Mathematica计算不定积分与定积分的方法.通过作图和观察,深入理解定积分的概念和思想方法.初步了解定积分的近似计算方法.理解变上
5、限积分的概念.提高应用定积分解决各种问题的能力.实验举例：1、用定义计算定积分当在上连续时,有因此可将与作为的近似值.为了下面计算的方便,在例1.1中定义这两个近似值为和n的函数.例1.1(教材例1.1)计算的近似值.输入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^
6、n]},{n,1,10}];TableForm[js1,TableHeadings->{None,{"n","s1","s2"}}]则输出ns1s220.1250.62540.218750.4687580.0.160.0.320.0.640.0.1280.0.337252560.0.5120.0.10240.0.这是的一系列近似值.且有例1.2计算的近似值.输入Clear[g];g[x_]=Sin[x]/x;js2=Table[{n,s2[g,{0,1},n]},{n,3,50}]则得到定积分的一系列近似值:{{3,0.91687},{4,0.},{5,0.},…,{48,0.},{
7、49,0.},{50,0.}}注：用这种方法(矩形法)得到的定积分的近似值随n收敛很慢.可以用梯形法或抛物线法改进收敛速度(见教材中的有关章节).如果用Nintegrate命令可以得到本题的比较精确的近似值为0..例1.3用定义求定积分的动画演示.输入Clear[f,x,a,b];f[x_]=x^2;a=0;b=1.5;m=0;g1=Plot[f[x],{x,a,b},PlotStyle->{RGBColor[1,0,0]},DisplayFunction
