Up | English

ループを使って格子を描く

作成: 2006-12-14 更新: 2006-12-14

---

• プログラム
  Show[ Graphics[ { { RGBColor[1,0,0], Table[ Line[ {{x1, -10}, {x1, 10}} ], {x1, -10, 10, 1} ] }, { RGBColor[0,1,0], Table[ Line[ {{-10, y1}, {10, y1}} ], {y1, -10, 10, 1} ] } } ], PlotRange -> {{-10, 10}, {-10, 10}}, AspectRatio -> 1 ]
  
  
• 実行