Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Mathematica loop question

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

Also cool:

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

or

Module[{num = 100, m = RotationMatrix[3/4 Pi], yMax},
  yMax = Last[m.{num, 1}];
  Graphics[{Table[{x, y} =
      m.{i, j}; {ColorData["TemperatureMap"][y/yMax],
      Disk[{x, y}, 1]}, {i, 0, num}, {j, 0, i}]}]]

Bobby

On Tue, 26 Apr 2011 12:43:54 -0500, Sol Lederman <sol.lederman at gmail.com>  
wrote:

> That is way too clever!
>
> On Tue, Apr 26, 2011 at 11:37 AM, DrMajorBob <btreat1 at austin.rr.com>  
> 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
>>
>>


-- 
DrMajorBob at yahoo.com