在Mathematica中使用给定颜色设置给定ListPlot的所有点

时间:2010-11-19 04:47:46

标签: wolfram-mathematica

如何制作以下功能

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

我看到的点是绿色还是黄色,而不是典型的深蓝色点?

由于

3 个答案:

答案 0 :(得分:6)

使用Directive组合样式,即

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

答案 1 :(得分:2)

编辑我在相关的上下文to your previous question中给出了以下两种可能的解决方案。不过,请注意@ 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}]

alt text

或者

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}]

答案 2 :(得分:0)

有时我发现以下方法很有用,因为它允许我这样做 操纵绘图符号(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)