Mark H's Lobe Cone:

This space curve was produced using the following Maple commands:

> x:=(1+cos(16*t))*cos(t);
> y:=(1+cos(16*t))*sin(t);
> z:=1+cos(16*t);

                     x := (1 + cos(16 t)) cos(t)


                     y := (1 + cos(16 t)) sin(t)


                          z := 1 + cos(16 t)

> with(plots):
> spacecurve([x,y,z],t=0..2*Pi,axes='BOXED',
>   thickness=2,numpoints=1000);

SFU / Math & Stats / ~hebron / math252 / assignments / sol03 / studentcurves / mark.h.html

Revised 11 Feburary 1999 by John Hebron.