1

I want to rotate the VectorPlote3D of the following

VectorPlot3D[{-y, x, z}, {x, -4, 4}, {y, -4, 4}, {z, -4, 4}, VectorScale -> {Small, 0.6, Automatic}]

and also creat GUI to control the rotation speed.

1 Answers1

2
Animate[With[{vp = RotationTransform[theta, {0, 0, 1}][{4, 0, 4}]}, 
  VectorPlot3D[{-y, x, z}, {x, -4, 4}, {y, -4, 4}, {z, -4, 4}, 
   VectorScale -> {Small, 0.6, Automatic}, 
   ViewPoint -> vp, 
   SphericalRegion -> True]], 
{theta, 0, 2 Pi}, 
 AnimationRunning -> False]

enter image description here

kglr
  • 394,356
  • 18
  • 477
  • 896