用Mathematica处理几何问题，是个非常明智的选择。她可以给出非常复杂的运算和结果，可以有效地避免大量计算。这有点类似于机器证明！ 下面就用Mathematica画各种几何图形。下面的代码，或多或少都有点错误。哈哈，我故意的！不过，你可以一边自学，一边就改过来了！这也可以帮助大家更好地熟练Mathematica！工具/原料more电脑Mathematica（8.0以上版本）绘制点1/5分步阅读

绘制一个点：

Graphics]

注意点的坐标用{}括起来。

2/5

绘制多个点：

Graphics}, {t, 0.1, 6, 1/10}]]]

3/5

改变点的样式，粉红色的大点：

Graphics, Pink,

Point, Sin}, {t, 0, 2 \, \/10}]]}]

4/5

绘制365个随机的点，颜色、大小、位置都是随机的：

Graphics], PointSize], Point]}, {365}]]

这段代码每次运行，都可能会有不同的结果。

5/5

简单地把点分类，用Point画出来：

【{red, green} =

Last@Reap@

Scan]^2 + #]^2 2 #] + #] 1,

Sow, Sow] ,

RandomReal];

Graphics}, {Green, Point}}]】

绘制线段1/7

线段，用Line实现。线段的端点的坐标，全放在{英文输入法的括号}里面：

Graphics】

2/7

画多条线段，围成一个三角形（折线段的端点，这些点的坐标，全放在{英文输入法的括号}里面）。

Graphics】

3/7

绘制不同样式的线段（注意{}的用法）：

l = Line;

Graphics】

Graphics[{Thick, Dashed, Blue, l}】

4/7

绘制曲线的切向量（这里涉及微分几何的知识）：

With + Sin, 2 Cos + Sin}},

Graphics,

Line] + f}]} /. x - t, {t, 0, 2 Pi, .05}]】

和

With + Sin, 2 Cos + Sin}},

Graphics,

Line] + f}]} /. x - t, {t, 0, 2 Pi, .05}]】

5/7

绘制有八个点的完全图（这是图论的知识）：

p = Tuples + Sin, Sin}, {t, 0, 2 Pi, 2 Pi/8}], 2];

Graphics】

6/7

绘制曲线的切线簇（涉及射影几何、代数几何等理论）：

f := x^2 + x

p = Table ((a - 2) - a) + f}, {a + 2,

f ((a + 2) - a) + f}}, {a, -10, 10, .1}];

Graphics, PlotRange - {{-1, 1}, {-1, 1}}】

7/7

绘制摩尔的视觉误差条纹：

Graphics, {x, 0, 1, .02}]】

注意事项

点的坐标，要用{英文输入法的括号}括起来。

线段的端点、折线段的端点，这些点的坐标，全放在{英文输入法的括号}里面。

上面的代码，或多或少都有点错误。哈哈，我故意的！不过，你可以一边自学，一边就改过来了！