Manipulate[xcord[x_]:=x^(1/2)Cos[x]Sin[x];ycord[x_]:=Cos[x];zcord[x_]:=x/10;
listcords[x_]:={xcord[x],ycord[x],zcord[x]};Show[Graphics3D[{Red, Thick,Arrow[{listcords[a],{xcord'[a]+xcord[a],ycord'[a]+ycord[a],zcord'[a]+zcord[a]}}],PointSize[.02],Point[listcords[a]]},Boxed->False, Axes->True, AxesOrigin->{0,0,0},Ticks->False,PlotRange->{{-2.5,3.2},{-3.5,2.5},{0,2.5}},ImageMargins->0,ImagePadding->None],ParametricPlot3D[listcords[u],{u,0,10},PlotStyle->{Blue, Thick}]],{a,0.1,10,.05},Paneled->False]

Export["complex.jpg", %, ImageResolution->300, ImageSize->700]