nasıl böyle olduğunu yapabilir aşağıdaki işlevi komploBelirli bir ListPlot'un tüm noktalarını Mathematica'da belirli bir renkle ayarlama
ListPointPlot3D[points, PlotStyle -> PointSize[0.05]];
yerine tipik lacivert olanlar ben mesela yeşil veya sarı olduğunu görmek noktalar?
Teşekkürler
Düzenleme Ben to your previous question ilgili bir bağlamda iki olası çözümlerin aşağıda vereceğim. Yine de, Yaroslav'un kodunun daha iyi olduğunu lütfen unutmayın. o işlemek için beni tanır gibi stilleri birleştirmek
f[x_, y_] := x^2 + y^2;
t = Graphics3D[{PointSize[Large], Red, [email protected]
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}]
Ya
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]}, {[email protected]}]];
b = Plot3D[f[x, y], {x, -10, 10}, {y, -10, 10},
ColorFunction -> "MintColors"];
Show[{b, a}]
Kullanım Directive, yani
ListPointPlot3D[points, PlotStyle -> Directive[{PointSize[0.05], Green}]]
Bazen, şu yaklaşım yararlıdır bulmak arsa sembolü (PlotMarkers görmüyor m en az Mathematica'da 7) içinde [başlangıçta Jens Peer Kuska önerdiği] ListPointPlot3D çalışmak:
ListPointPlot3D[{{1,1,1},{2,2,2},{3,3,3}}]/.Point[xy_]:>(Style[Text["\[FilledUpTriangle]",#],Red,FontSize-> 20]&/@xy)
her zaman bu tek unutmayın. –