Groups > comp.soft-sys.math.mathematica > #1894

Re: Mathematica loop question

From	Sol Lederman <sol.lederman@gmail.com>
Newsgroups	comp.soft-sys.math.mathematica
Subject	Re: Mathematica loop question
Date	2011-04-27 09:37 +0000
Organization	Steven M. Christensen and Associates, Inc and MathTensor, Inc.
Message-ID	<ip8o49$peb$1@smc.vnet.net> (permalink)

Show all headers | View raw

That is way too clever!

On Tue, Apr 26, 2011 at 11:37 AM, DrMajorBob <btreat1@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
>
>

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread

Thread

Re: Mathematica loop question Sol Lederman <sol.lederman@gmail.com> - 2011-04-27 09:37 +0000

csiph-web