Mathematicaで数表のハイライト

便利なやつからいきます。

テーブルをグリッド表示する際、特定の条件式に当てはまるセルをハイライト表示します。

hilight-table.nb

highlightTable[tbl_, crit_, color_: Red] := 
 Grid[tbl] /. {n_?crit -> Item[n, Background -> color]}

例として、$x \times y - 1$ が素数となるセルを着色するコードを示します。

prime-q--x-times-y.nb

tbl = Table[x y - 1, {y, 10}, {x, 10}];
highlightTable[tbl, PrimeQ]

このように表示されます。

1行で書き下すと以下のようになります。

prime-q--x-times-y--one-line.nb

Grid[Table[x y - 1, {y, 15}, {x, 15}]] /. {n_?PrimeQ -> Item[n, Background -> Red]}

@butchi_y (More info: https://t.co/HBUuaZOB3w) #wolframlang pic.twitter.com/20gTy9WjpC

— Tweet-a-Program (@wolframtap) 2016年12月1日