数学实验 Mathematic实验六 空间图形画法.doc

天水师范学院数学与统计学院 实验报告 实验项目名称 空间图形的画法 所属课程名称 数学实验 实 验 类 型 微积分实验 实 验 日 期 2011.10.26 班 级 学 号 姓 名 成 绩 一、实验概述： 【实验目的】 1.掌握用Mathematica绘制空间曲面和曲线的方法. 2.通过作图和观察，深入理解多元函数的概念，提高空间想像能力. 3.深入理解二次曲面方程及其图形.。 【实验原理】 1.空间直角坐标系中作三维图形命令Plot3D. 命令Plot3D主要用于绘制二元函数的图形，该命令的基本形式是 Plot3 D[f[x，y]，{x，xl，x2}，{y，y1，y2}，选项] 其中f[x，y]是x，y的二元函数，xl，x2表示x的作图范围，y1，y2表示y的作图范围.例如输入 Plot3D[x^2+y^2，{x，-2，2}，{y，-2，2}]，输入 ParametricPlot3D[{u*Cos[v]，u*Sin[v]，u^2}，{u，0，3}，{v，0，2Pi}]，输入 ParametricPlot3D[{2Sin[u]*Cos[v]，2Sin[u]*Sin[v]，2Cos[v]}，{u，0，Pi}，{v，0，2Pi}].输入 ParametricPlot3D[{Cos[t]，Sin[t]，t/10，RGBColor[1，0，0]}，{t，0，8Pi}]Graphics\Animation.m 执行后再输入 MoviePlot3D[Cos[t*x]*Sin[t*y]，{x，-Pi，Pi}，{y，-Pi，Pi}，{t，1，2}，Frame?6]，其中. 输入 Plot3D[6-2x-3y，{x，0，3}，{y，0，2}]Plot3D[6-2x-3y，{x，0，3}，{y，0，2}，PlotRange?{0，6}]，作出它的图形. k[x_，y_]:=4/(1+x^2+y^2)； Plot3D[k[x，y]，{x，-2，2}，{y，-2，2}，PlotPoints?30，PlotRange?{0，4}，BoxRatios?{1，1，1}]的图形.　 输入 Plot3D[Cos[4x^2+9y^2]，{x，-1，1}，{y，-1，1}，Boxed?False，Axes?Automatic，PlotPoints?30，Shading?False]的图形. 这是多值函数，要用参数方程作图的命令ParametricPlot3D.该曲面的参数方程是，其中.输入 ParametricPlot3D[{2*Sin[u]*Cos[v]，3*Sin[u]*Sin[v]，Cos[v]}，{u，0，Pi}，{v，0，2Pi}，PlotPoints?30]的图形. ParametricPlot3D[{Sec[u]*Sin[v]，2*Sec[u]*Cos[v]，3Tan[u]}，{u，-Pi/4，Pi/4}，{v，0，2Pi}，PlotPoints?30]. sh1=ParametricPlot3D[{1.5*Cot[u]*Cos[v],1.4*Cot[u]*Sin[v],1.3/Sin[u]},{u，Pi/1000，Pi/4}，{v，-Pi，Pi}，DisplayFunction?Identity]； sh2=ParametricPlot3D[{1.5*Cot[u]*Cos[v]1.4*Cot[u]*Sin[v]，1.3/Sin[u]}，{u，-Pi/2，-Pi/1000}，{v，-Pi，Pi}，DisplayFunction?Identity]； Show[sh1，sh2，DisplayFunction?$DisplayFunction]的图形是双曲抛物面.在区域上作出它的图形. Plot3D[x*y，{x，-2，2}，{y，-2，2}，BoxRatios-{1，1，2}，PlotPoints?30]ParametricPlot3D[{r*Cos[t]，r*Cos[t]，r^2*Cos[t]*Sin[t]}，{r，0，2}，{t，0，2Pi}，PlotPoints?30]和柱面相交的图形 g1=ParametricPlot3D[{2*Sin[u]*Cos[v]，2*Sin[u]*Sin[v]，2Cos[u]}，{u，0，Pi}，{v，0，2Pi}，DisplayFunction?Identity]； g2=