[W.Mathematica] Визуализация ListPointPlot3D

[dmd]

Может кто-нибудь подсказать, как в визуализации ListPointPlot3D сделать куб осей правильным. Почему-то куб визуализации сплюснут по одной из осей, масштаб на одной оси уполовинен

ListPointPlot3D[{{0, 0, 1}, {0, 1, 0}, {1, 0, 0}, {10, 9, 10}, {9, 10, 10}, {10, 10, 9}, {10, 8, 4}, {8, 4, 10}, {4, 10, 8}, {9, 8, 1}, {8, 1, 9}, {1, 9, 8}, {9, 6, 5}, {6, 5, 9}, {5, 9, 6}, {8, 3, 1}, {3, 1, 8}, {1, 8, 3}, {6, 9, 0}, {9, 0, 6}, {0, 6, 9}, {6, 10, 3}, {10, 3, 6}, {3, 6, 10}, {1, 6, 2}, {6, 2, 1}, {2, 1, 6}, {0, 7, 10}, {7, 10, 0}, {10, 0, 7}, {2, 0, 2}, {0, 2, 2}, {2, 2, 0}}, PlotStyle -> PointSize[0.03], ColorFunction -> "Rainbow"]

Охота увидеть симметрию троек точек вокруг диагональной оси, но из-за сплюснутости её сложно разглядеть.

[arseniiv]

Добавьте BoxRatios -> Automatic — ListPointPlot3D переопределяет эту опцию в {1, 1, 0.4} ( ).

[dmd]

Спосибо!

Возможно ли на этой же визуализации изобразить диагональ (0,0,0)-(10,10,10)?

[Aritaborian]

Например, вот так.

Show[Graphics3D[Line[{{0, 0, 0}, {10, 10, 10}}]], ListPointPlot3D[{{0, 0, 1}, {0, 1, 0}, {1, 0, 0}, {10, 9, 10}, {9, 10, 10}, {10, 10, 9}, {10, 8, 4}, {8, 4, 10}, {4, 10, 8}, {9, 8, 1}, {8, 1, 9}, {1, 9, 8}, {9, 6, 5}, {6, 5, 9}, {5, 9, 6}, {8, 3, 1}, {3, 1, 8}, {1, 8, 3}, {6, 9, 0}, {9, 0, 6}, {0, 6, 9}, {6, 10, 3}, {10, 3, 6}, {3, 6, 10}, {1, 6, 2}, {6, 2, 1}, {2, 1, 6}, {0, 7, 10}, {7, 10, 0}, {10, 0, 7}, {2, 0, 2}, {0, 2, 2}, {2, 2, 0}}, PlotStyle -> PointSize[0.03], ColorFunction -> "Rainbow", BoxRatios -> Automatic]]

(Сделать это с помощью Epilog у меня почему-то не получилось )

[dmd]

Спасибо огромное!

Мне ещё охота перпендикуляры из каждой точки на диагональ опустить, но это я уже сам соображу, теперь принцип понятен.

[arseniiv]

Ещё, по идее, можно Showать сразу несколько Graphics(3D) (которые можно будет засунуть в отдельные переменные) одновременно, и они будут совмещаться.

[Aritaborian]

Можно, конечно.
arseniiv, я никак не пойму, почему у меня не вышло засунуть эту диагональ в сам ListPointPlot3D в качестве Epilog?

[arseniiv]

(Оффтоп)

Не экспериментировал ещё. Может, кто-то быстрее скажет.