with(plots): with(VectorCalculus):
r:=t ->[cos(2*t), sin(3*t)^3, cos(3*t)-sin(3*t)+19];
plot1:=spacecurve(r(t), t=0..5, color=blue,thickness=3, numpoints=200, axes=normal):
plot2:=plot3d([r(3*Pi/12), r(7*Pi/12), r(11*Pi/12), r(15*Pi/12), r(19*Pi/12)], x=-5..5, y=-5..5,color=red, style=point, symbol=circle, symbolsize=20):
The 5 points where the cow is moving horiztonally:
display(plot1, plot2);