Re: Mathematica loop question
- To: mathgroup at smc.vnet.net
- Subject: [mg118406] Re: Mathematica loop question
- From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
- Date: Wed, 27 Apr 2011 05:37:37 -0400 (EDT)
Hi, I think you don't need the yMax at all. It's just Module[{num = 10, m = RotationMatrix[3/4 Pi]}, Graphics[{EdgeForm@Directive[Thin, Black], Table[{ColorData["TemperatureMap"][Abs[i - j]/num], Disk[m.{i, j}, 0.4]}, {i, 0, num}, {j, 0, i}]}]] Cheers Patrick On Tue, 2011-04-26 at 12:37 -0500, DrMajorBob wrote: > 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 > >