下面几个例子是从高等数学课程中提取出来的实验效.docVIP

下面几个例子是从《高等数学》课程中提取出来的实验效果图，并提供了对应实例的实现程序。由此可见数学学习过程中许多知识都可以通过数学实验的方式直观化和形象化，进而加深对数学理论知识的理解和应用能力。 1．Sin(x)在x=0处不同阶次的泰勒展开对比图. 图1 sin(x)原始图形 图2 sin(x)在x=0处的5阶泰勒展开 图3 sin(x)在x=0处的10阶泰勒展开 图4 sin(x)在x=0处的20阶泰勒展开 图5 5阶展开图(green line)，10阶展开图(blue line), sin(x)的原始图形与20阶展开图形重合(red line) 2．空间几何体相交图. (1)选用球体和圆柱体相交. 图1 球体与圆柱体相交 （2）抛物面与平面相交. 图2 抛物面与平面相交 3．马鞍面z=xy的图形. 图1 马鞍面z=xy 4.曲线在xy平面内的投影. 图1 与相交图 图2 图1在xy平面的投影图 附Mathematica程序(做部分说明)： 1． f0=Sin[x] ft1=Series[f0,{x,0,5}] /5阶泰勒展开 f1=Normal[ft1] /略去高阶无穷小 ft2=Series[f0,{x,0,10}] f2=Normal[ft2] ft3=Series[f0,{x,0,20}] f3=Normal[ft3] Plot[f0,{x,-2Pi,2Pi},PlotStyle-{RGBColor[1,1,0]}] Plot[f1,{x,-2Pi,2Pi},PlotStyle-{RGBColor[0,1,0]}] Plot[f2,{x,-2Pi,2Pi},PlotStyle-{RGBColor[0,0,1]}] Plot[f3,{x,-2Pi,2Pi},PlotStyle-{RGBColor[1,0,0]}] Plot[{f0,f1,f2,f3},{x,-2Pi,2Pi},PlotStyle?{RGBColor[1,1,0],RGBColor[0,1,0],RGBColor[0,0,1],RGBColor[1,0,0]}] 2． （1）Graphics\Animation.m r=4;h=6; Animate[ParametricPlot3D[{{r*Cos[u]*Sin[v],r*Sin[u]*Sin[v],r*Cos[v]},{r/2*Cos[u]+2r-3/2t,r/2*Sin[u],v}},{u,0,2Pi},{v,-3/2Pi,3/2Pi},PlotPoints?20,PlotRange?{{-h,h},{-h,h},{-h,h}},ViewPoint?{1,2,2},Axes?False],{t,0,r,r/8}] / Animate[含t的作图表达式或程序段，{t,t0,t1,step}] /用参数方程表示，t为作图变量 （2）a=ParametricPlot3D[{u*Sin[v],u*Cos[v],u^2},{u,0,1.5},{v,0,2*Pi}]; b=Plot3D[1,{x,-1,1},{y,-1,1}]; Show[a,b] 3． Plot3D[x*y,{x,-10,10},{y,-10,10},Mesh?False,Boxed?False] 4． c=ParametricPlot3D[{Cos[u]*Sin[v],Cos[u]*Cos[v],Sin[u]},{u,0,2*Pi},{v,0,2*Pi}]; d=Plot3D[-x-y,{x,-1,1},{y,-1,1}]; Show[c,d] r=Sqrt[2]/2; ParametricPlot[{r*Cos[u]-r*Sin[u]/2,r*Sin[u]},{u,0,2*Pi},PlotStyle-{RGBColor[0,0,1]}]