Ann's Tornado:

This space curve was produced using the following Maple
commands:
> x:=(1+6/15*cos(12*t))*(cos(1/10*t));
> y:=(log(1+6/15*(sin(12*t)))*(cos(1/50*t)));
> z:=1/20*t*Pi+1/500*sin(sin(24*t));
x := (1 + 2/5 cos(12 t)) cos(1/10 t)
y := ln(1 + 2/5 sin(12 t)) cos(1/50 t)
z := 1/20 t Pi + 1/500 sin(sin(24 t))
> with(plots):
> spacecurve([x,y,z],t=0..8*Pi,numpoints=1000,
> axes='NORMAL',scaling='CONSTRAINED',
> thickness=2,orientation=[40,75]);
SFU /
Math & Stats /
~hebron /
math252 /
assignments /
sol03 /
studentcurves /
ann.html
Revised 11 Feburary 1999 by
John Hebron.