高等数学实验指导书5.docVIP

实验五 空间解析几何与向量代数 5.1??实验目的 ?? 掌握利用Mathematica软件进行向量运算及作空间曲面、空间曲线的方法； 通过实验进一步熟悉空间解析几何与向量代数的有关内容。 5.2??实验内容 向量及其线性运算 设向量a=(2,1,2),b=(-1,1,-2).求： a+b，a-b，8a，2a-3b， 。 [实验]（1）输入：a={2,1,2};b={-1,1,-2}; a+b 得结果：{1,2,0} 即有a+b=（1，2，0）； （2）又输入：a-b 得结果：{3,0,4} 即有a-b=（3，0，4）； （3）再输入：8a 得结果：{16,8,16} 即有8a=（16，8，16）； （4）再输入：2a-3b 得结果：{7,-1,10} 即有2a-3b=（7，-1，10）； （5）最后输入：Norm[b] 得结果： 即有=。 说明： Norm[b] 的功能是求。 数量积、向量积、混合积 设向量a=(2,1,-1),b=(1,-1,2).求：a·b，a×b。 [实验]（1）输入：a={2,1,-1};b={1,-1,2}; a.b 得结果：-1 即有a·b=-1; (2)再输入：a?b 得结果：{1,-5,-3} 即有a×b =（1，-5，-3）。 说明：a.b or Dot[a, b] gives products of vectors. a×b or Cross[a, b] gives the vector cross product of a and b. 设向量a=(2,1,2),b=(-4,3,1), c=(2,3,5).求：[abc]。 [实验]输入：a={2,1,2};b={-4,3,1};c={2,3,5}; (a?b).c 得结果：10 即有[abc]= 10. 空间曲面 画出方程所表示的曲面。 [实验]输入： ; 得结果： 说明：Plot3D[f, x, xmin, xmax, y, ymin, ymax] generates a three-dimensional plot of f as a function of x and y. 画出参数方程 所表示的曲面。 [实验]输入： 得结果： 说明：ParametricPlot3D[, , , t, tmin, tmax, u, umin, umax] produces a three-dimensional surface parametrized by t and u. 画出yOz坐标面上的直线z=3y绕z轴旋转一周所生成的旋转曲面，并用动画来演示这个旋转过程。 [实验] （1）输入： x[u_,v_]:=u Cos[v]; y[u_,v_]:=u Sin[v]; z[u_,v_]:=3u; ParametricPlot3D[{x[u,v],y[u,v],z[u,v]},{u,-10,10},{v,0,2?},PlotPoints?40]; 得结果： （2）再输入： For[i=?/15,i?2 ?,i=i+?/15, ParametricPlot3D[{x[u,v],y[u,v],z[u,v]},{u,-10,10},{v,0,i},PlotPoints?40]] 得出：yOz坐标面上的直线z=3y绕z轴旋转一周，逐渐生成上图所示之旋转曲面的旋转过程。用鼠标双击其中任意一幅图画，便可清楚地看到用动画演示的这个旋转过程。 说明： ParametricPlot3D has the same options. PlotPoints is . For[start, test, incr, body] executes start, then repeatedly evaluates body and incr until test fails to give True. 例7 画出y2 = 2x的图形，并用动画来演示这个该柱面的生成过程。 [实验] 输入： 得结果： （2）再输入： For[i=3,i?-4,i=i-0.4, f1=ParametricPlot3D[{x[u,v],y[u,v],z[u,v]},{u,i,4},{v,-10,10},PlotPoints-40,PlotRange?{{0,8},{-4,4},{-10,10}},DisplayFunction?Identity]; f2=ParametricPlot3D[{x[i,v],y[i,v],z[i,v],RGBColor[1,0,0]},{v,-10,10},PlotPoints-40,PlotRange?{{0,8},{-4,4},{-10,10}},DisplayFunction?Identity]; f3=ParametricPl