красиво распечатать матрицу в математике

Question

У меня есть список списков (матрица) в математике. Я хочу распечатать его красиво, с max в каждой строке выделены жирным шрифтом. Как это сделать?

Или возможно даже дальше, с кругом вне такого максимума, это возможно?

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], если вам нравится жирный шрифт.

Answer 2

Сетка [] дает тонкое управление зерном на дисплее. Например:

g[a_] := Grid[a, 
    Background -> {None, {{LightBlue, LightRed}}}, 
    Dividers -> {False, All}, 
    ItemStyle -> {Automatic, Automatic, 
    MapIndexed[Flatten@{#2, Ordering[#1, -1]} -> {Bold, Red} &, a]}] 

g[RandomInteger[100, {10, 7}]] 

NB> Это будет выделить только один элемент для каждой строки

Редактировать

Чтобы выделить каждый максимальный элемент, вы могли бы сделать, например:

g[a_] := Grid[a, 
    Background -> {None, {{LightBlue, LightRed}}}, 
    Dividers -> {False, All}, 
    ItemStyle -> {Automatic, Automatic, 
    Flatten[Tuples[{First@#, Last@#}] & /@ 
     MapIndexed[{#2, Position[#1, Max[#1]]} &, a], 
     1] /. {q_, {r_}} -> ({q, r} -> {Red, Bold})}]