Keywords: Regular polygon 19 annotated.svg en Regular enneadecagon with annotation 2013-07-19 12 24 44 own László Németh <gallery> Image Regular polygon 3 annotated svg Regular 3-gon Image Regular polygon 4 annotated svg Regular 4-gon Image Regular polygon 5 annotated svg Regular 5-gon Image Regular polygon 6 annotated svg Regular 6-gon Image Regular polygon 7 annotated svg Regular 7-gon Image Regular polygon 8 annotated svg Regular 8-gon Image Regular polygon 9 annotated svg Regular 9-gon Image Regular polygon 10 annotated svg Regular 10-gon Image Regular polygon 11 annotated svg Regular 11-gon Image Regular polygon 12 annotated svg Regular 12-gon Image Regular polygon 13 annotated svg Regular 13-gon Image Regular polygon 14 annotated svg Regular 14-gon Image Regular polygon 15 annotated svg Regular 15-gon Image Regular polygon 16 annotated svg Regular 16-gon Image Regular polygon 17 annotated svg Regular 17-gon Image Regular polygon 18 annotated svg Regular 18-gon Image Regular polygon 19 annotated svg Regular 19-gon Image Regular polygon 20 annotated svg Regular 20-gon </gallery> ValidSVG Created with LibreOffice ; Created in LibreOffice 4 with this LibreLogo program ; Usage Copy it in an English language document in LibO Writer ; and click on the Start icon of the View»Toolbar»Logo toolbar TO superior num prevnum s FOR i IN STR num s s + ¹²³ INT i IF NOT prevnum 10 1 s + s ; narrow space OUTPUT s END TO inferior num s FOR i IN STR num s s + INT i OUTPUT s END CLEARSCREEN HIDETURTLE FONTSIZE 18 FONTFAMILY DejaVu Sans FOR vertices IN 7 11 13 14 16 17 19 ; PICTURE poly/regular_polygon_ d_annotated svg vertices ; from LibO 4 1 1 PICTURE HOME FILLCOLOR WHITE PENCOLOR SILVER PENDOWN PENSIZE 2 CIRCLE 400 β 360/vertices q vertices // 4 CIRCLE 80 + vertices 14 80 + vertices 14 β q β q + 1 FONTCOLOR SILVER IF vertices > 18 f 0 004 f 0 005 HEADING β q + β 0 5 PENUP FORWARD 80 + vertices 14 0 3 + f vertices HEADING 0 s1 superior 360 vertices 360 // vertices s2 inferior vertices LABEL d s s° β s1 s2 HOME HEADING 0 PENDOWN dots REPEAT vertices FORWARD 200 where POSITION dots dots + where BACK 200 RIGHT β HOME PENSIZE 2 CIRCLE 10 PENCOLOR BLACK FONTCOLOR BLACK α vertices-2 /vertices 180 PENUP FORWARD 200 PENDOWN CIRCLE 100 + 105/vertices 100 + 105/vertices 180 α/2 180 + α/2 s1 superior vertices-2 180 vertices INT α PENUP BACK 20 + 70/vertices LABEL d s s° α s1 s2 HOME PENUP PENSIZE 4 PENUP FOR i IN dots + dots0 1 POSITION i PENDOWN PENSIZE 2 FOR i IN dots PENUP POSITION i PENDOWN CIRCLE 10 cc-zero Uploaded with UploadWizard Regular enneadecagons Images with LibreLogo source code Annotated regular polygons-set |