Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

Re: triangles in circles

  • To: mathgroup at
  • Subject: [mg26829] Re: [mg26813] triangles in circles
  • From: BobHanlon at
  • Date: Thu, 25 Jan 2001 01:13:11 -0500 (EST)
  • Sender: owner-wri-mathgroup at


n = 5;

ptlist = Table[{Cos[i 2 \[Pi]/n], Sin[i 2 \[Pi]/n]}, {i, 1, n}];

triList = Append[#, First[#]]& /@ KSubsets[ptlist, 3];



      Circle[{0, 0}, 1],
      {PointSize[0.02], Line /@ triList}
      }], AspectRatio -> Automatic];

Graphically, you will get the same result by just drawing a line with each 
pair of points

      Circle[{0, 0}, 1],
      {PointSize[0.02], Line /@ KSubsets[ptlist, 2]}
      }], AspectRatio -> Automatic];

Bob Hanlon

In a message dated 2001/1/24 5:22:16 AM, tdevries at writes:

>I'm teaching a high school math class and we are doing permutations and
>combinations.  One of the "standard" questions is ..."given a certain number
>of points located around a circle, how many triangles can be formed...."
>The simple line below creates a circle with 5 points arranged around it.
>Could someone help me with a way to generate the lists of points that would
>create all the triangles.   I know that for more points it would get kind
>messy, but I wanted to actually draw all the triangles as I thought it
>be an interesting graphic...  
>Thanks for any help you might have....
>n = 5;
>ptlist = Table[{Cos[i 2 \[Pi]/n], Sin[i 2 \[Pi]/n]}, {i, 1, n}];
>      Circle[{0, 0}, 1],
>      {PointSize[0.02], Point /@ ptlist}
>      }], AspectRatio -> Automatic]

  • Prev by Date: Re: Overriding Power
  • Next by Date: RE: Rewriting of Trigonometric Functions
  • Previous by thread: Re: triangles in circles
  • Next by thread: Re: triangles in circles