Astronomical Applications Department, U.S. Naval Observatory Curves 3 D Page 9
2
c
2 m2 n4 b2 c2 m4 n2 a2 2 n4 a2 b2 m2 n2 a2 b2 m4 6 n6 a2 b2 c2 m2 n4 a2
-
+
-
-
-
-
)
(
)
sin
m t
2
)
>
tor := function( tor, a,b,c,n,m,t ):
>
tubecurveplot( TorusKnot(10,3,5,2,5,t), 1.2, t=0..2*Pi,
theta=0.5*Pi..2.0*Pi, axes=box, grid=[50,12],
orientation=[110,60],
color=5*tor(10,3,5,2,5,t) );
Page 9
