Graphics 3D & Functions

With[{f ={Sin[3t],Cos[7 t]+Cos[4t],Cos[t]}},
          Graphics3D[Table[Arrow[Tube[{{Sin[t],Cos[t],0},
          f +{Sin[t],Cos[t],1}}]],{t,0,100Pi}],
          Boxed->False,ImageSize->700]]