More than 1 year has passed since last update.

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

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

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]

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

image

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

prime-q--x-times-y--one-line.nb
Grid[Table[x y - 1, {y, 15}, {x, 15}]] /. {n_?PrimeQ -> Item[n, Background -> Red]}
Sign up for free and join this conversation.
Sign Up
If you already have a Qiita account log in.