graphics - 在 Mathematica 中使用图形通过交叉替换磁盘

Question

考虑以下列表:

dalist = {{47.9913, 11.127, 208}, {47.5212, 10.3002, 208}, 
          {49.7695, 9.96838, 160}, {48.625, 12.7042, 436}}

这些是屏幕上眼睛注视的坐标，在每个子列表中，
#1是 X 坐标，
#2 Y坐标和
#3 ，在该特定位置花费的时间

然后我使用以下内容:

Disk[{#[[1]], #[[2]]}, 3N[#[[3]]/Total[dalist[[All, 3]]]]] & /@ dalist

绘制具有持续时间加权直径的圆盘。

我想画十字而不是 2 个线段在它们的中间相交，每个线段的长度等于圆盘直径，如下图所示。



这是我还没有:

Graphics[{
          Line[{{#[[1]] - 3 N[#[[3]]/Total[dalist[[All, 3]]]], #[[2]]},
                {#[[1]] + 3 N[#[[3]]/Total[dalist[[All, 3]]]], #[[2]]}}] & /@ dalist,
          Line[{{#[[1]], #[[2]] - 3 N[#[[3]]/Total[dalist[[All, 3]]]]},
                {#[[1]], #[[2]] + 3 N[#[[3]]/Total[dalist[[All, 3]]]]}}] & /@ dalist}]

我想知道是否有更简单的方法，使用类似于 ListPlot 中存在的 PlotMarkers

Answer 1

使用两行。就像是:

pointTrans =
  {
     Line[{{#[[1]] - l, #[[2]]}, {#[[1]] + l, #[[2]]}}],
     Line[{{#[[1]], #[[2]] - l}, {#[[1]], #[[2]] + l}}]
     } /. l -> #[[3]]/Mean[dalist[[All, 3]]] &;

pointTrans /@ dalist // Graphics // Show