用MMA制作带有背景色的表格

青青子衿

1. aX[n_] :=
2.   If[n < 1, 0,
3.    1 + Sum[MoebiusMu[d]^2 n/d/12 - EulerPhi[GCD[d, n/d]]/2, {d,
4.       Divisors@n}] -
5.     Count[(#^2 - # + 1)/n & /@ Range[n], _?IntegerQ]/3 -
6.     Count[(#^2 + 1)/n & /@ Range[n], _?IntegerQ]/4];
7. data = Table[aX[n], {n, 1, 105}];
9. (*创建两列表格，第一列是编号(从0开始)，第二列是数据*)
10. table = Transpose[{Range[1, Length[data]], data}];
12. (*定义样式函数：值为1的行蓝色背景，值为2的行黄色背景*)
13. styleFunction[row_] :=
14.   If[row[[2]] == 1, {Item[row[[1]], Background -> None],
15.     Item[row[[2]], Background -> LightBlue]},
16.    If[row[[2]] == 2, {Item[row[[1]], Background -> None],
17.      Item[row[[2]], Background -> Yellow]}, row (*其他情况不变*)]];
19. (*应用样式并添加表头*)
20. styledTable = styleFunction /@ table;
21. fullTable =
22.   Prepend[styledTable,
23.    Item[#, Background -> LightGray] & /@ {"编号", "值"}];
25. (*显示表格*)
26. Grid[fullTable, Frame -> All, Spacings -> {1, 1} (*调整单元格间距*)]

Copy the Code