本文,在双曲抛物面上绘制曲线。
工具/原料
1
电脑
2
Mathematica
方法/步骤
1
双曲抛物面:r[{u_, v_}] := {u, v, u v/2}
2
截取一个圆形区域:
3
曲线r[{u, 2 u}]:
4
曲线r[{u, Sin[6 u]/3}]:
5
曲线r[{u, u^2]:
6
r[{u, Abs[u]}]:
7
r[{Cos[u], Sin[u]}]:
8
r[2 Sin[2 u] {Cos[u], Sin[u]}]:
9
r[2 Sin[3 u] {Cos[u], Sin[u]}]: