在Mathematica中精确绘制两条折线时,PlotMarkers消失了吗?

Reb*_*bin 4 plot wolfram-mathematica

不确定这是一个MMA错误还是我做错了什么.考虑以下功能:

plotTrace[points_] :=
 ListPlot[points,
  Joined -> True,
  PlotMarkers -> Table[i, {i, Length@points}]]
Run Code Online (Sandbox Code Playgroud)

现在考虑传递RandomReal生成的值.即,考虑一下

RandomReal[1, {nTraces, nPointsPerTrace, 2(*constant = nDimensions*)}]. 
Run Code Online (Sandbox Code Playgroud)

如果nTraces为1,则显示我试过的所有nPointsPerTrace值的PlotMarkers:

Manipulate[
 plotTrace[RandomReal[1, {1, nPointsPerTrace, 2}]], 
 {nPointsPerTrace, 1, 20, 1}]
Run Code Online (Sandbox Code Playgroud)

当nTraces == 1时绘制随机点

如果nTraces为3或更大,则为我尝试的所有nPointsPerTrace值显示绘图标记

Manipulate[plotTrace[RandomReal[1, {nTraces, nPointsPerTrace, 2}]],
 {nTraces, 3, 20, 1}, {nPointsPerTrace, 1, 20, 1}]
Run Code Online (Sandbox Code Playgroud)

当nTraces> = 3时绘制随机点

但是如果nTraces正好是2,那么无论nPointsPerTrace的值如何,我都看不到绘图标记:

Manipulate[plotTrace[RandomReal[1, {2, nPointsPerTrace, 2}]],
 {nPointsPerTrace, 1, 20, 1}]
Run Code Online (Sandbox Code Playgroud)

当nTraces == 2时绘制随机点

提示,线索,建议将不胜感激!

Bre*_*ion 5

它被PlotMarkers -> {1,2}视为标记和大小,而不是两个标记:

In[137]:= ListPlot[{{1, 2, 3}, {4, 5, 6}}, PlotMarkers -> {1, 2}] // InputForm

Out[137]//InputForm=
Graphics[GraphicsComplex[{{1., 1.}, {2., 2.}, {3., 3.}, {1., 4.}, {2., 5.}, {3., 6.}, 
  {1., 1.}, {2., 2.}, {3., 3.}, {1., 4.}, {2., 5.}, {3., 6.}}, 
  {{{Hue[0.67, 0.6, 0.6], Inset[Style[1, FontSize -> 2], 7], 
     Inset[Style[1, FontSize -> 2], 8], Inset[Style[1, FontSize -> 2], 9]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], Inset[Style[1, FontSize -> 2], 10], 
     Inset[Style[1, FontSize -> 2], 11], Inset[Style[1, FontSize -> 2], 12]}, {}}}], 
 {AspectRatio -> GoldenRatio^(-1), Axes -> True, AxesOrigin -> {0, 0}, 
  PlotRange -> {{0, 3.}, {0, 6.}}, PlotRangeClipping -> True, 
  PlotRangePadding -> {Scaled[0.02], Scaled[0.02]}}]
Run Code Online (Sandbox Code Playgroud)