wolfram-mathematica - 如何在Mathematica中以图形方式跟踪矩阵中的路径

Question

我有一个矩阵，即列表的一个不整齐的列表，并给出了一个坐标列表，例如以{{0,0},{1,1},{2,2},...{5,5}}的形式，我想跟踪该矩阵中的路径并以图形方式显示结果。路径的彩色带足够好。

请帮助我在Mathematica中编写这样的函数。非常感谢!

Answer 1

这是一种可能性。

pos = {{1, 1}, {1, 2}, {2, 2}, {3, 3},
  {3, 4}, {3, 5}, {4, 5}, {5, 5}};
mat = HankelMatrix[8];
display = Map[Pane[#,{16,20},Alignment->Center]&, mat, {2}];
display = MapAt[Style[#, Background -> Yellow]&, display, pos];
Grid[display, Spacings->{0,0}]

正如您所描述的，用管道将条目概述起来比较困难。但是，如果我们愿意放弃使用图形基元的话，可以做到这一点。

mat = IdentityMatrix[8];
pos = {{1, 1}, {1, 2}, {2, 2}, {3, 3},
  {3, 4}, {3, 5}, {4, 5}, {5, 5}};
pos = Map[{#[[1]], -#[[2]]} &, pos];
outline = {CapForm["Round"], JoinForm["Round"],
  {AbsoluteThickness[30], Line[pos]},
  {AbsoluteThickness[28], White, Line[pos]}};
disks = Table[{Darker[Yellow, 0.07], Disk[p, 0.25]}, 
  {p, pos}];
numbers = MapIndexed[Style[Text[#, {#2[[1]], -#2[[2]]}, 
  {-0.2, 0.2}], FontSize -> 12] &, mat, {2}];
Graphics[{outline, disks, numbers}, ImageSize -> 300]