VectorPlot3D[{{x,y,z},{x,y,-z},Cross[{x,y,z},{x,y,-z}]},
{x,-1,1},{y,-1,1},{z,-1,1},VectorPoints->2,
VectorStyle->"Arrow3D",VectorScale->0.4,PlotRange->All,
VectorColorFunction->(ColorData["BrightBands"][(#1+#2+#3)/3] &)]
VectorPlot3D[{Sin[3x],Cos[2y],Exp[-z/2]},
{x,-1,1},{y,-1,1} ,{z,-1,1},PlotRange->All,
VectorPoints->Coarse,VectorStyle->"Arrow3D",
VectorColorFunction -> "BrightBands"]
No comments:
Post a Comment