wolfram-mathematica - 很好地在mathematica中打印出矩阵

Question

我在mathematica中有一个列表列表(矩阵)。我想很好地打印出来，每一行的最大值都以粗体显示。这该怎么做？

或者甚至更进一步，如果在这样的最大值之外有一个圆，这可能吗？

Answer 1

您可以使用MatrixForm很好地打印出矩阵:

data = RandomInteger[100, {5, 5}];

data // MatrixForm

产量

您可以在每一行的最大值附近画一个圆，如下所示:

Map[# /. m : Max[#] :> Framed[m, RoundingRadius -> 1000]  &, data] //
  MatrixForm

屈服
RoundingRadius -> 1000使用一个非常大的参数来获取圈子。您可能需要根据显示比例调整常数。

如果您希望使用粗体，则可以使用 Framed[m...]更改 Style[m, Bold]。