Star

Author

Eric W. Weisstein
January 20, 2012

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PlaneGeometry/Star.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Star.html.

©2011 Wolfram Research, Inc. except for portions noted otherwise

Code

LineStar[n_Integer?Positive]:=Module[{i,k},
Line[Table[k Through[{Cos,Sin}[Pi i/n]],{i,0,n-1},{k,-1,1,2}]]
]

Graphic

V5

Show[GraphicsArray[
Graphics[{#,{PointSize[.12],Red,Point[{0,0}]}},AspectRatio->Automatic]&/@Table[LineStar[n],{n,5}]]]

V6

GraphicsRow[Graphics[{#,{PointSize[.12],Red,Point[{0,0}]}}]&/@Table[LineStar[n],{n,5}]]