Mathematicaで与えられた色で与えられたListPlotのすべての点を設定する

Question

次の関数をプロットするようにするにはどうしたらいいですか？

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

典型的なダークブルーの代わりに、緑色や黄色の点がありますか？

ありがとう

Answer 1

編集私はto your previous question関連の文脈における2つの解決策の下にあなたを与えます。それにもかかわらず、@ Yaroslavのコードははるかに優れていることに注意してください。それは 操作に私を可能にするようなスタイルを組み合わせること

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 2

使用Directiveは、すなわち

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

Answer 3

は、時々私は、次のようなアプローチが役立ちますプロットシンボル（PlotMarkersには表示されません[本来のJensピアKuskaによって示唆】少なくとも1のMathematica 7にListPointPlot3D、 で動作するM）：

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