We’re rewarding the question askers & reputations are being recalculated! Read more.

New answers tagged

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