with(plots); -1 
tubeplot([cos(4*t), sin(8*t), cos(12*t)*sin(t)], t = 0 .. 2*Pi, radius = 0.5e-1, numpoints = 500); 1
tubeplot([cos(4*t), sin(8*t), cos(12*t)*sin(t)], t = 0 .. 2*Pi, radius = 0.5e-1, numpoints = 500); 1 

 

Plot