Установка всех точек данного ListPlot с данным цветом в Mathematica

Question

Как мне сделать так, чтобы при построении следующей функции

ListPointPlot3D[points, PlotStyle -> PointSize[0.05]];

точки, которые я вижу, были зелеными или желтыми, например, вместо типичных синих?

Спасибо

Answer 1

Используйте Directive для объединения стилей, т.е.

ListPointPlot3D[points,  PlotStyle -> Directive[{PointSize[0.05], Green}]]

Answer 2

Изменить Ниже я приведу два возможных решения в контексте, связанном с вашим предыдущим вопросом . Тем не менее, обратите внимание, что код @ Ярослава намного лучше.

f[x_, y_] := x^2 + y^2;

t = Graphics3D[{PointSize[Large], Red, Point@
     Flatten[Table[{x, y, f[x, y]}, {x, 0, 10, 1}, {y, 1, 2, 1}], 1]}];

b = Plot3D[f[x, y], {x, -10, 10}, {y, -10, 10}, 
   ColorFunction -> "MintColors"];
Show[{b, t}]

Или

f[x_, y_] := x^2 + y^2;
points = Flatten[Table[{x, y, f[x, y]}, {x, 0, 10, 1}, {y, 1, 2, 1}], 
   1];
a = ListPointPlot3D[points, 
   PlotStyle -> Table[{Red, PointSize[0.05]}, {Length@t}]];
b = Plot3D[f[x, y], {x, -10, 10}, {y, -10, 10}, 
   ColorFunction -> "MintColors"];
Show[{b, a}]

Answer 3

Иногда я нахожу следующий подход полезным, так как он позволяет мне манипулировать символом графика (кажется, что PlotMarkers не работает с ListPointPlot3D, по крайней мере, в Mathematica 7) [первоначально предложено Jens-Peer Kuska]:

ListPointPlot3D[{{1,1,1},{2,2,2},{3,3,3}}]/.Point[xy_]:>(Style[Text["\[FilledUpTriangle]",#],Red,FontSize-> 20]&/@xy)