Skip to main content
Mathematica

Return to Question

Bumped by Community user
Bumped by Community user
Bumped by Community user
Bumped by Community user
Bumped by Community user
Bumped by Community user
Bumped by Community user
added 1 character in body
Source Link
Ethan1987
Ethan1987
  • 1
  • 2

EDIT: the idea is to have the vectors $b_i$ plotted at KKK sites

EDIT: the idea is to have the vectors $b_i$ plotted at K sites

EDIT: the idea is to have the vectors $b_i$ plotted at KK sites

added 1004 characters in body
Source Link
Ethan1987
Ethan1987
  • 1
  • 2

EDIT: the idea is to have the vectors $b_i$ plotted at K sites

Forgot to mention that i also tried this other implementation that does plot something, but not what i want...the vectors doesn't seem to be located at the points positions

n1max = 3 ; n2max = 3 ; n3max = 3;
pason1 = 1; pason2 = 1; pason3 = 1;

posiciones = Flatten[Table[KK[n1, n2, n3], {n1, 0, n1max, pason1}, {n2, 0, n2max,pason2}, {n3, 0, n3max, pason3}], 2];

lista1 = Table[b1, {n1, 0, n1max, pason1}, {n2, 0, n2max, pason2}, {n3, 0, n3max,pason3}];

reemp = {a -> 2, c -> 1};

l1 = lista1 /. reemp;
l2 = lista2 /. reemp;
l3 = lista3 /. reemp;

prom = Mean[{2 Pi/a, 2 Pi/c} /. reemp];

g1 = ListPointPlot3D[posiciones /. reemp];
gv1 = ListVectorPlot3D[l1,DataRange -> {{0, n1max Norm[b1]}, {0, n2max Norm[b2]}, {0,n3max Norm[b3]}} /. reemp, VectorScale -> Small];
Show[g1, gv1]

Also I'd like the arrows to start at the position dots and extend to the corresponding next dots... something like: o->o

EDIT: the idea is to have the vectors $b_i$ plotted at K sites

Forgot to mention that i also tried this other implementation that does plot something, but not what i want...the vectors doesn't seem to be located at the points positions

n1max = 3 ; n2max = 3 ; n3max = 3;
pason1 = 1; pason2 = 1; pason3 = 1;

posiciones = Flatten[Table[KK[n1, n2, n3], {n1, 0, n1max, pason1}, {n2, 0, n2max,pason2}, {n3, 0, n3max, pason3}], 2];

lista1 = Table[b1, {n1, 0, n1max, pason1}, {n2, 0, n2max, pason2}, {n3, 0, n3max,pason3}];

reemp = {a -> 2, c -> 1};

l1 = lista1 /. reemp;
l2 = lista2 /. reemp;
l3 = lista3 /. reemp;

prom = Mean[{2 Pi/a, 2 Pi/c} /. reemp];

g1 = ListPointPlot3D[posiciones /. reemp];
gv1 = ListVectorPlot3D[l1,DataRange -> {{0, n1max Norm[b1]}, {0, n2max Norm[b2]}, {0,n3max Norm[b3]}} /. reemp, VectorScale -> Small];
Show[g1, gv1]

Also I'd like the arrows to start at the position dots and extend to the corresponding next dots... something like: o->o

Source Link
Ethan1987
Ethan1987
  • 1
  • 2

ListVectorPlot3D not plotting anything nor giving any error, just empty 3D axes

It's as simple as the title says. My code is:

b1 = 2 Pi/a {1/Sqrt[3], 1, 0};
b2 = 2 Pi/a {1/Sqrt[3], -1, 0};
b3 = -2 Pi/c {0, 0, 1};

KK[n1_, n2_, n3_] = n1 b1 + n2 b2 + n3 b3;

lista1 = Table[{KK[n1, n2, n3], b1}, {n1, 0, 5, 1}, {n2, 0, 5, 
    1}, {n3, 0, 5, 1}];

reemp = {a -> 2, c -> 1};

l1 = lista1 /. reemp;
l2 = lista2 /. reemp;
l3 = lista3 /. reemp;

ListVectorPlot3D[l1, VectorPoints -> All]

I compare it whith the manual's ("Get Help" option) working example:

vectors = Table[{{x, y, z}, {y, x - x^3, z}}, {x, -1.5, 1.5, 0.2}, {y, -2, 2,0.2}, {z, -1, 1,0.1}];
ListVectorPlot3D[vectors];

but can't find any significant difference in terms of code. Also tried using the option "VectorPoints -> All", but with no avail. I read some past answers but found nothing i could use. The most similar question i could find is this 8-year-old wolfram's forum question

but there they don't really solve the problem. Maybe nowadays there's finally an answer!