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

Re: Mathematica loop question

Path	csiph.com!x330-a1.tempe.blueboxinc.net!newsfeed.hal-mli.net!feeder1.hal-mli.net!nx02.iad01.newshosting.com!newshosting.com!newspump.sol.net!posts.news.twtelecom.net!nnrp2.twtelecom.net!not-for-mail
From	Patrick Scheibe <pscheibe@trm.uni-leipzig.de>
Newsgroups	comp.soft-sys.math.mathematica
Subject	Re: Mathematica loop question
Date	Tue, 26 Apr 2011 10:51:27 +0000 (UTC)
Organization	Steven M. Christensen and Associates, Inc and MathTensor, Inc.
Sender	steve@smc.vnet.net
Approved	Steven M. Christensen <steve@smc.vnet.net>, Moderator
Message-ID	<ip683f$bn6$1@smc.vnet.net> (permalink)
Lines	51
NNTP-Posting-Date	26 Apr 2011 09:52:10 GMT
NNTP-Posting-Host	ce91abd9.news.twtelecom.net
X-Trace	DXC=?\8WY;eC?mSn`k2nf64]0\C_A=>8kQj6];[h;PUXBgbTU3bdY^;K09^EFiONJ7[GoV3`\XgQo^TUT
X-Complaints-To	abuse@twtelecom.net
Xref	x330-a1.tempe.blueboxinc.net comp.soft-sys.math.mathematica:1887

Show key headers only | View raw

Hi,

if you're just interested in the pattern you could create a simpler one
and rotate it:

With[{num = 10, m = RotationMatrix[3/4 Pi]},
 Graphics[{Table[Disk[m.{i, j}, 0.25], {i, 0, num}, {j, 0, i}]}]
 ]

Cheers
Patrick

On Tue, 2011-04-26 at 04:43 -0400, Sol Lederman 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
>

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

Thread

Re: Mathematica loop question Patrick Scheibe <pscheibe@trm.uni-leipzig.de> - 2011-04-26 10:51 +0000

csiph-web