
> x:=(1+sin(25*t))*cos(t);
> y:=(1+cos(25*t))*sin(t);
> z:=1+cos(25*t);
x := (1 + sin(25 t)) cos(t)
y := (1 + cos(25 t)) sin(t)
z := 1 + cos(25 t)
> with(plots):
> spacecurve([x,y,z],t=0..2*Pi,numpoints=1000,
> thickness=2,axes='FRAMED',orientation=[45,10]);