>
|
with(plots):
spacecurve([cos(t),sin(t),t],t=0..4*Pi);
spacecurve({[sin(t),0,cos(t),t=0..2*Pi],[cos(t)+1,sin(t),0,numpoints=10]},
t=-Pi..Pi,axes=FRAME);
spacecurve({[t*sin(t),t,t*cos(t)],[4*cos(t),4*sin(t),0]},t=-Pi..2*Pi);
knot:= [ -10*cos(t) - 2*cos(5*t) + 15*sin(2*t),
-15*cos(2*t) + 10*sin(t) - 2*sin(5*t), 10*cos(3*t), t= 0..2*Pi]:
spacecurve(knot);
helix_points := [seq([10*cos(r/30),10*sin(r/30),r/3],r=0..240)]:
spacecurve(helix_points);
spacecurve({helix_points,knot});
|