Mathematicaで四角形のグリッドを描く

1）私は四角形（AspectRatio - > 1.0）のグリッドを描きたい。グリッドの寸法は200×150です。 2）グリッドの最初の8760の正方形（左から右、上から下へ）を灰色にしたい。ありがとう。Mathematicaで四角形のグリッドを描く

については、私は比率をどこに置くべきかわかりません。 2）私は醜い解決策を持っており、エレガントなものを楽しみにしています。私が今持っている

コード：

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

2012-02-22 Ning

グリッドには 'AspectRatio'オプションがありません。代わりに 'ItemSize'オプションを使用することができます。 'ItemSize - > {.75、1}'をコードに追加すると、四角形のセルになります。 – kglr

@kgulerありがとう！できます。答えとしてあなたの解決策を置くことができますか？そして、0.75は実験結果ですか？ – Ning

はい、試行錯誤で0.75が見つかりました。 '{1,1}'を試してみて、うまく動かないことを確認してください。あなたのコードは大丈夫です。はっきりとよりエレガントな選択肢を表示しないでください。 – kglr

グリッドAspectRatioオプションがありません。代わりに、ItemSizeオプションを使用できます。コードにItemSize -> {.75, 1}を追加すると、四角形のセルになります。

2012-02-22 04:11:25 kglr

バージョン7では、ItemSize - > {0.5、1} 'で正方形の"セル "を取得しました。これはシステム間で信頼できるものではないことがはっきりしています。 –

@ Mr.Wizard、私もモニターの表示設定と関係があると思います。私のサークルは、ある外部モニターから別のモニターに移動すると楕円になります。 – kglr

答えて