Manipulate[ParametricPlot3D[{xComp,yComp,zComp}/.t->u,{u,0,domain},PlotStyle->Orange,PlotRange->All]/.Line[pts_,rest___]:>Tube[pts,width,rest],{domain,0.1,20},{width,0.001,0.5},{{xComp,Sin[t],"x(t) = "}},{{yComp,Cos[3t],"y(t) = "}},{{zComp,Sin[2t],"z(t) = "}}]