So I want to display a plot containing a spiral and a polygon graph approximating the shape. I use a seq to make the points in pointplot3d and then connect them with the connect option. It looks like this:
y(t):=t-><cos(t),sin(t),t>:
graph := spacecurve(y(t), t = 0 .. 6, thickness = 3, axes = box, color = blue):
poly6 := pointplot3d({seq([cos(t), sin(t), t], t = 0 .. 6, 1)}, connect, axes = box,
color = red, thickness = 3, caption = {n = 6}):