3d координатная графика

Question

как построить трехмерные координаты в mathematica? Я пытаюсь построить 3D-точки с помощью Mathematica. Я хочу посмотреть, как они выглядят после того, как я закончу. до сих пор это то, что я сделал ... У меня есть тысячи пунктов, чтобы подготовить к сведению.

ввод

a = {{2, 4, 5}, {3, 7, 9}, {6, 4, 5}, {5, 7, 5} , {7, 2, 1}} 
ListPointPlot3D[a] 

вывод

{{2, 4, 5}, {3, 7, 9}, {6, 4, 5}, {5, 7, 5}, {7, 2, 1}}
ListPointPlot3D[{{2, 4, 5}, {3, 7, 9}, {6, 4, 5}, {5, 7, 5}, {7, 2, 1}}] 

Я не вижу графика. Заранее спасибо за помощь! -JOE

Answer 1

Если ListPointPlot3D возвращает неоцененное значение, и вы не изменили ничего, что могло бы помешать его работе, возможно, вы используете Mathematica 5 и скопировали этот код из другого места.

В этом случае попробуйте использовать:

a = {{2, 4, 5}, {3, 7, 9}, {6, 4, 5}, {5, 7, 5}, {7, 2, 1}};

Show[Graphics3D[Point /@ a]]