
Re: ListVectorPlot3D
Posted:
May 29, 2013 3:48 AM


Often the ListPlots are not the best approach. A more general and intuitive method is just to Map the graphics primitive (Point, Arrow, Line, whatever) onto the list of points defining it. In your example the plot gets too cluttered so I selected a random sample of 20 vectors from your test2 list. And I also reversed the direction of the Arrows because it looks nicer.
Graphics3D[{Arrowheads[0.03], Arrow /@ Reverse /@ RandomSample[test2, 20]}, Axes > True]
David Park djmpark@comcast.net http://home.comcast.net/~djmpark/index.html
From: BBabic [mailto:bipsich101@gmail.com]
Hello, I am using Mathematica 9. Not sure why, but it seems that Math can not plot nonequidistant set of 3D vectors. Here is an example. We create two set of vector field data:
Equidistant test = Flatten[ Table[{{x, y, z}, RandomReal[{10, 10}, 3]}, {x, 40000, 40000, 5000}, {y, 40000, 40000, 5000}, {z, 40000, 40000, 5000}], 2];
random test2 = Flatten[ Table[{RandomReal[{40000, 40000}, 3], RandomReal[{10, 10}, 3]}, {x, 40000, 40000, 5000}, {y, 40000, 40000, 5000}, {z, 10000, 10000, 2000}], 2];
While ListVectorPlot3D[test] works. The ListVectorPlot3D[test2] just gives a Box without any error message. Any insight why this is not working and comments or ideas to make workable would be highly appreciated. Cheers !

