MathGroup Archive 2011

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

Search the Archive

Re: Mathematica loop question

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

Nice one!

Bobby

On Tue, 26 Apr 2011 05:51:31 -0500, Patrick Scheibe  
<pscheibe at trm.uni-leipzig.de> wrote:

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


-- 
DrMajorBob at yahoo.com


  • Prev by Date: Re: Mathematica loop question
  • Next by Date: How to Assign Different Kernel To Different Notebook?
  • Previous by thread: Re: Mathematica loop question
  • Next by thread: Re: Mathematica loop question