Groups > comp.soft-sys.math.mathematica > #1879

Mathematica loop question

From	Sol Lederman <sol.lederman@gmail.com>
Newsgroups	comp.soft-sys.math.mathematica
Subject	Mathematica loop question
Date	2011-04-26 08:43 +0000
Organization	Steven M. Christensen and Associates, Inc and MathTensor, Inc.
Message-ID	<ip60j0$aan$1@smc.vnet.net> (permalink)

Show all headers | View raw

Hi,

I'm teaching myself Mathematica.

I've plotted this:

   Graphics[{
  Blue,
  Disk[{5, 10}, .25],
  Disk[{4, 9}, .25],
  Disk[{6, 9}, .25],
  Disk[{3, 8}, .25],
  Disk[{5, 8}, .25],
  Disk[{7, 8}, .25],
  Disk[{2, 7}, .25],
  Disk[{4, 7}, .25],
  Disk[{6, 7}, .25],
  Disk[{8, 7}, .25],
  Disk[{1, 6}, .25],
  Disk[{3, 6}, .25],
  Disk[{5, 6}, .25],
  Disk[{7, 6}, .25],
  Disk[{9, 6}, .25]
  }]


Is there an elegant way to write this without a bunch of Disk statements?
I'm imagining that this would be a double nested loop.


Thanks.


Sol

Back to comp.soft-sys.math.mathematica | Previous | Next — Next in thread | Find similar | Unroll thread

Thread

Mathematica loop question Sol Lederman <sol.lederman@gmail.com> - 2011-04-26 08:43 +0000
  Re: Mathematica loop question Stefan <wutchamacallit27@gmail.com> - 2011-04-26 10:50 +0000
  Re: Mathematica loop question Ray Koopman <koopman@sfu.ca> - 2011-04-26 10:50 +0000
    Re: Mathematica loop question Ray Koopman <koopman@sfu.ca> - 2011-04-27 09:36 +0000

csiph-web