自己写的一个Mathematica下的一个作跟轨迹的函数源码，以前用6做的，现在8自带了，不过我比较过，和这个效果差不多。