Date: May 29, 2013 3:48 AM
Author: David Park
Subject: Re: ListVectorPlot3D
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 non-equidistant 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 !