MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Mathematica loop question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg118397] Re: Mathematica loop question
  • From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
  • Date: Tue, 26 Apr 2011 06:51:31 -0400 (EDT)

Hi,

if you're just interested in the pattern you could create a simpler one
and rotate it:

With[{num = 10, m = RotationMatrix[3/4 Pi]},
 Graphics[{Table[Disk[m.{i, j}, 0.25], {i, 0, num}, {j, 0, i}]}]
 ]

Cheers
Patrick

On Tue, 2011-04-26 at 04:43 -0400, Sol Lederman wrote:
> 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
> 




  • Prev by Date: Re: Mathematica loop question
  • Next by Date: Re: Limit[f[x], x->a] vs. f[a]. When are they equal?
  • Previous by thread: Re: Mathematica loop question
  • Next by thread: Re: Mathematica loop question