本文，用Mathematica来画伪球面上的正弦曲线。
工具/原料
1
电脑
2
Mathematica
方法/步骤
1
正弦曲线r[{u, Sin[u]}]：
2
动画：r[{u, Sin[u + uu]}]其中uu从0变到2π。
3
单独增加频率：r[{u, Sin[9 u]}]
4
此时的动画效果：r[{u,Sin[9 u + uu]
5
单独增加振幅：r[{u, 5 Sin[u]}]
6
振幅和频率都增加：r[{u, 2 Sin[9 u]}]
7
对应的动画效果：r[{u, 2 Sin[9 u + uu]}]
8
振幅增加的动画效果：