New answers tagged computational-geometry
3
centers = Import["C:\\Users\\W10\\Downloads\\cluster2_centres.csv", "Data"];
orientations = Import["C:\\Users\\W10\\Downloads\\cluster2_orientations.csv", "Data"];
angles = MapThread[VectorAngle, {centers, orientations}];
You can use Scale to create an oblate spheroid from Sphere:
ClearAll[oblate, translaterotate]
oblate[a_, c_] := Scale[Sphere[], {a, a, ...
0
Iterate through triangles other than vertex, then you don't need to find neighbors.
(Initial:)
MeanC = Table[{0, 0, 0}, Length[vlist]];
Avor = Table[0, Length[vlist]];
GauC = Table[2 \[Pi], Length[vlist]];
(Loop)
For[ti = 1, ti <= Length[tlist], ti++,
For[i = 1, i <= 3, i++,
vi = tlist[[ti, i]];
{j, k} = Delete[{1, 2, 3}, i];
{vj, vk} = ...
Top 50 recent answers are included
