本文，用Mathematica来绘制曲面在不同的平面上的投影。圆锥的参数方程定为：f[u_] := 2 u;r[u_, v_] := {u Cos[v], u Sin[v], f[u]}这里限定所有的平面都经过原点。
工具/原料
1
电脑
2
网络画板
方法/步骤
1
由原点和p1 = {1, 0, 0}, p2 = {1, 1, 2}确定的平面，圆锥的投影如下。
2
p1 = {1, 0, 0}, p2 = {0, 1, 0}
3
p1 = {1, 0, 0}, p2 = {0.5, 1, 0.5}
4
p1 = {1, 0, 0}, p2 = {0, 0, 1}
6
平面的连续变化：p1 = {1, 0, 0}, p2 = {0, 1, n}其中n的取值范围是：{0., 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1., 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2., 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3., 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36, 39, 42, 45, 48, 51, 54, 57, 60, 63, 66, 69, 72, 75, 78, 81, 84, 87, 90, 93, 96, 99, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000, 1100, 1200, 1300, 1400, 1500, 1600, 1700, 1800, 1900, 2000, 2100, 2200, 2300, 2400, 2500, 2600, 2700, 2800, 2900, 3000}