MathGroup Archive 2011

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

Search the Archive

Re: Mathematica loop question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg118403] Re: Mathematica loop question
  • From: Sol Lederman <sol.lederman at gmail.com>
  • Date: Wed, 27 Apr 2011 05:37:01 -0400 (EDT)

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
>
>


  • Prev by Date: complex equation
  • Next by Date: plot of nmaximized result
  • Previous by thread: Re: Mathematica loop question
  • Next by thread: Re: Mathematica loop question