Beautifully print the matrix in math

Question

I have a list of lists (matrix) in math. I want to print it beautifully, with max in each line in bold. How to do it?

Or maybe even further, with a circle outside such a maximum, is this possible?

Answer 1

You can use MatrixForm for beautiful matrix output:

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

gives

You can draw a circle around the maximum in each line as follows:

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

getting

RoundingRadius -> 1000 uses a ridiculously large parameter to get circles. You may need to adjust the constant depending on the scale of your display.

You can change Framed[m...] to Style[m, Bold] if you like bold.

Answer 2

Grid [] gives fine grain control on an external display. For example:

 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> It will select only one element per line

Edit

To highlight each max element, you can do, for example:

 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})}]