MathGroup Archive 2011

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

Search the Archive

Re: Mathematica loop question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg118402] Re: Mathematica loop question
  • From: DrMajorBob <btreat1 at austin.rr.com>
  • Date: Wed, 27 Apr 2011 05:36:50 -0400 (EDT)

Or this (after Patrick Scheibe):

Module[{num = 10, m = RotationMatrix[3/4 Pi], yMax},
  yMax = Last[m.{num, 1}];
  Graphics[{EdgeForm@Directive[Thin, Black],
    Table[{x, y} = m.{i, j}; {ColorData["TemperatureMap"][y/yMax],
      Disk[{x, y}, 0.4]}, {i, 0, num}, {j, 0, i}]}]]

Bobby

On Tue, 26 Apr 2011 03:43:16 -0500, Sol Lederman <sol.lederman at gmail.com>  
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


-- 
DrMajorBob at yahoo.com


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