2014工程数学实验期末大作业 - 图文

成绩：

工程数学实验报告

2013-2014-2学期

学部: 知行书院 班级: 机械拓展3班 姓名: 王建鹏 学号: 201224370326 电话: 18232526159

2013-2014-2学期工程数学实验报告

Ⅰ 展示图形之美篇

要求：用中文宋体五号字输入文字，用word自带公式编辑器输入所有数学公式。

【数学实验一】题目：利用Mathematica制作如下图形

（1）??x?ksint，t?[0,2?]，其中k的取值为自己学号的后三位。

?y?ksin2t(0?u??,0?v?2?)，其中k的取值为自己学号的后三位。

?x?sinucoskv?（2）?y?sinusinv?z?cosu? Mathematica程序：(1)ParametricPlot[{326*Sin[t], 326*Sin[2 t]}, {t, 0, 2 Pi}] (2)

ParametricPlot3D[{Sin[u]*Cos[326 v], Sin[u]*Cos[v], Cos[u]}, {u, 0,

Pi}, {v, 0, 2 Pi}] 运行结果：(1) 300200100300200100100200300100200300

1

2013-2014-2学期工程数学实验报告

(2)

【数学实验二】题目：请用Mathematica制作五个形态各异三维立体图形，图形函数自选，也可以由几个函数构成更美观、更复杂的图形;并用简短的语言说明选择该图形的理由和意义。

Mathematica程序: ParametricPlot3D[{u*Cos[v], u*Sin[v], u^2}, {u, 0, 2}, {v, 0, 2 Pi}] 运行结果：

选择该图形的理由和意义：该图形就像一个漏斗，很具有珍惜时间的含义！

2

2013-2014-2学期工程数学实验报告

Mathematica程序： 运行结果：

Plot3D[Sin[x*y], {x, 0, 4}, {y, 0, 4}, PlotPoints -> 40,

Mesh -> False]

选择该图形的理由和意义：该图形就像脸面起伏的山峰，很具有现实形象的意义！

f[x_, y_] := Sin[x^2 + y^2];Mathematica程序：Plot3D[f[x, y], {x, -2, 2}, {y, -2, 2}, BoxRatios -> {1, 1, 0.4}] 运行结果：

选择该图形的理由和意义：该图形就像一顶帽子，很形象！

3

2013-2014-2学期工程数学实验报告

x[u_, v_] := Sec[u] Cos[v];y[u_, v_] := Sec[u] Sin[v]; Mathematica程序：

z[u_, v_] := Tan[u];ParametricPlot3D[{x[u, v], y[u, v], z[u, v]}, {u, -Pi/3, Pi/3}, {v, 0, 2 Pi}, Boxed -> False, BoxRatios -> {1, 1, 1}]

运行结果：

选择该图形的理由和意义：该图形就像一个沙漏，可以告诫我们要珍惜时间，很形象！

f[x_, y_] := x^2 + y^2g[x_, y_] := 16 - (x^2 + y^2)Mathematica程序：g1 = Plot3D[f[x, y], {x, -3, 3}, {y, -3, 3}];

g2 = Plot3D[g[x, y], {x, -3, 3}, {y, -3, 3}];Show[g1, g2, Boxratios -> {1, 1, 1}] 运行结果：

4

本文来源：https://www.bwwdw.com/article/s4mt.html