Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: drawing polygon diagonals

  • To: mathgroup at smc.vnet.net
  • Subject: [mg112371] Re: drawing polygon diagonals
  • From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
  • Date: Sat, 11 Sep 2010 05:44:32 -0400 (EDT)
  • References: <i6755n$873$1@smc.vnet.net> <i6a5f5$kjv$1@smc.vnet.net> <i6creo$s8p$1@smc.vnet.net>

Something like this?

DynamicModule[{maxpts = 12},
 Manipulate[
  pts = Table[{Cos[2 Pi*k/maxpts], Sin[2 Pi*k/maxpts]}, {k, 1, n}];
  Graphics[
   {
    Black, Thickness[0.0005],
    GraphicsComplex[pts, Line[Subsets[Range[n - 1], {2}]]],
    Blue,
    GraphicsComplex[pts, Line[{n, #} & /@ Range[n - 1]]],
    Red, PointSize[0.035],
    GraphicsComplex[pts, Point[Range[n]]]
    },
   PlotRange -> {{-1.2, 1.2}, {-1.2, 1.2}}
   ], {n, 2, maxpts, 1}
  ]
 ]

Cheers -- Sjoerd

On Sep 10, 10:49 am, MH <matthewh... at gmail.com> wrote:
> Thanks for your help, Dan & Sjoerd!  I have one more question because
> as I was working with this, I thought of a small improvement.  For
> now, I'll assume my biggest n-value is 12, so the current Manipulate
> statement finishes with a dodecagon.  The current code generates a
> triangle, then a square with its diagonals, then a pentagon with its
> diagonals, then a hexagon, and so on, up to a dodecagon with all its
> diagonals.  Each step shows a regular polygon with all its
> diagonals.
>
> It'd be nice, though, if as n increased (with the slider) the vertices
> of the dodecagon appeared one at a time in the correct place, and the
> lines between them also appeared.  For example, when n is 5 (and not
> yet all the way to 12), there'd be five red circles but they would NOT
> form a regular pentagon.  Instead, they'd be in the correct position
> to be vertices of a regular dodecagon.  This would be cool because a
> large collection of lines would not change from one n-value to the
> next.  Your eye would be drawn only to the new lines when you add each
> circle.  And if the new lines could appear in a separate color -- oh
> wow, that'd be great.  (For my purposes, those are the new handshakes
> when you add each person.)
>
> I hope this makes sense.  I'll do some more looking in the DocCenter.
> Thanks!  I appreciate your help and guidance.
>
> MH



  • Prev by Date: Re: String-to-Number Conversion Precision
  • Next by Date: Re: an issue of consistency
  • Previous by thread: Re: drawing polygon diagonals
  • Next by thread: Re: drawing polygon diagonals