在Mathematica中绘制正方形网格

Question

1）我想绘制一个正方形网格（AspectRatio - > 1.0）。网格的尺寸为200 * 150。 2）我希望网格中的前8760个正方形（从左到右，从上到下）为灰色。感谢。

对于1），我不知道把比率放在哪里;对于2）我有一个丑陋的解决方案，我期待一个优雅的。

我现在的代码：

Grid[Table["", {200}, {150}], 
 Background -> {None, 
   None, {{{1, 58}, {1, 150}} -> Gray, {{59, 59}, {1, 75}} -> Gray}}, 
 Frame -> All]

Answer 1

网格没有AspectRatio选项。相反，您可以使用选项ItemSize。如果您在代码中添加ItemSize -> {.75, 1}，则会获得方形单元格。