Astronomical Applications Department, U.S. Naval Observatory Curves 3 D Page 2
jpgplot( tubecurveplot( TorusKnot(10,3,5,2,5,t), 1.2, t=0..2*Pi,
theta=0.5*Pi..2.0*Pi, axes=box, grid=[100,12],
orientation=[110,60], title=`Luge from Hell` ),
`d:/dynamics/luge.jpg` );
>
resetplot();
Twicubic
>
:=
Twicubic
t
[
]
,
,
t t t t
3
Plot
>
tubecurveplot( Twicubic(t), 0.15, t=0..1.3, theta=0.5*Pi..2.1*Pi,
axes=box, grid=[50,12], orientation=[-100,80],
shading=xy, title=`Waterslide` );
Page 2
