Geometric Construction of a 17-gon

2015-11-14 00:21

This example demonstrates how to construct a 17-gon in GeoGebra using Sequence and Zip commands. By defining angle parameters and radius, the coordinates of the polygon's vertices are calculated, and the Polygon command is used to connect them, ultimately generating the 17-gon. This process illustrates the application of coordinate geometry and list operations in geometric construction.

#polygon #geometry-construction #sequence #coordinate-geometry

In collections 複數

<?xml version="1.0" encoding="utf-8"?>
<geogebra format="5.0" version="5.0.164.0" id="2862e9b6-6381-466c-9bd1-3547e656d135"  xsi:noNamespaceSchemaLocation="http://www.geogebra.org/ggb.xsd" xmlns="" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" >
<gui>
	<window width="800" height="600" />
	<perspectives>
<perspective id="tmp">
	<panes>
		<pane location="" divider="0.25" orientation="1" />
	</panes>
	<views>
		<view id="4097" visible="false" inframe="true" stylebar="true" location="1,1,1,1" size="400" window="866,262,700,550" />
		<view id="4" toolbar="0 || 2020 , 2021 , 2022 , 66 || 2001 , 2003 , 2002 , 2004 , 2005 || 2040 , 2041 , 2042 , 2044 , 2043" visible="false" inframe="false" stylebar="false" location="1,1" size="300" window="100,100,600,400" />
		<view id="8" toolbar="1001 | 1002 | 1003  || 1005 | 1004 || 1006 | 1007 | 1010 || 1008 1009 || 66 68 || 6" visible="false" inframe="false" stylebar="false" location="1,3" size="300" window="100,100,600,400" />
		<view id="1" visible="true" inframe="false" stylebar="true" location="1" size="789" window="100,100,600,400" />
		<view id="2" visible="false" inframe="false" stylebar="true" location="3" size="200" window="208,302,250,400" />
		<view id="16" visible="false" inframe="false" stylebar="false" location="1" size="150" window="50,50,500,500" />
		<view id="32" visible="false" inframe="false" stylebar="true" location="1" size="150" window="50,50,500,500" />
		<view id="64" toolbar="0" visible="false" inframe="true" stylebar="true" location="1" size="150" window="50,50,500,500" />
		<view id="70" toolbar="0 || 2020 || 2021 || 2022" visible="false" inframe="true" stylebar="true" location="1" size="150" window="50,50,500,500" />
		<view id="512" toolbar="0 | 1 501 5 19 , 67 | 2 15 45 18 , 7 37 | 514 3 9 , 13 44 , 47 | 16 | 551 550 11 ,  20 22 21 23 , 55 56 57 , 12 | 69 | 510 511 , 512 513 | 533 531 , 534 532 , 522 523 , 537 536 , 535 | 521 520 | 36 , 38 49 560 | 571 30 29 570 31 33 | 17 | 540 40 41 42 , 27 28 35 , 6 , 502" visible="false" inframe="false" stylebar="false" location="1" size="300" window="50,50,500,500" />
	</views>
	<toolbar show="true" items="0 39 | 1 501 67 , 5 19 , 72 | 2 15 45 , 18 65 , 7 37 | 4 3 8 9 , 13 44 , 58 , 47 | 16 51 64 , 70 | 10 34 53 11 , 24  20 22 , 21 23 | 55 56 57 , 12 | 36 46 , 38 49  50 , 71 | 30 29 54 32 31 33 | 17 26 62 73 , 14 68 | 25 52 60 61 | 40 41 42 , 27 28 35 , 6" position="1" help="true" />
	<input show="true" cmd="true" top="false" />
	<dockBar show="true" east="true" />
</perspective>
	</perspectives>
	<labelingStyle  val="3"/>
	<font  size="12"/>
</gui>
<euclidianView>
	<viewNumber viewNo="1"/>
	<size  width="789" height="467"/>
	<coordSystem xZero="371.55522355078676" yZero="240.30343870647079" scale="118.75649904148297" yscale="118.75636761212566"/>
	<evSettings axes="false" grid="false" gridIsBold="false" pointCapturing="3" rightAngleStyle="1" checkboxSize="26" gridType="0"/>
	<bgColor r="255" g="255" b="255"/>
	<axesColor r="0" g="0" b="0"/>
	<gridColor r="192" g="192" b="192"/>
	<lineStyle axes="0" grid="10"/>
	<axis id="0" show="false" label="" unitLabel="" tickStyle="1" showNumbers="false"/>
	<axis id="1" show="false" label="" unitLabel="" tickStyle="1" showNumbers="false"/>
</euclidianView>
<kernel>
	<uses3D val="true"/>
	<continuous val="false"/>
	<usePathAndRegionParameters val="true"/>
	<decimals val="2"/>
	<angleUnit val="degree"/>
	<algebraStyle val="0"/>
	<coordStyle val="0"/>
	<angleFromInvTrig val="false"/>
</kernel>
<scripting blocked="false" disabled="false"/>
<construction title="" author="" date="">
<element type="numeric" label="θ">
	<value val="0.36959913571644626"/>
	<show object="false" label="true"/>
	<objColor r="0" g="0" b="0" alpha="0.1"/>
	<layer val="0"/>
	<labelMode val="1"/>
	<animation step="0.1" speed="1" type="0" playing="false"/>
</element>
<command name="Sequence">
	<input a0="(1; (k * θ))" a1="k" a2="1" a3="17"/>
	<output a0="list1"/>
</command>
<element type="list" label="list1">
	<show object="true" label="false" ev="4"/>
	<objColor r="255" g="215" b="0" alpha="0.0"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<layer val="1"/>
	<labelMode val="0"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="2" type="0" typeHidden="1"/>
	<pointSize val="4"/>
	<pointStyle val="-1"/>
</element>
<command name="Sequence">
	<input a0="Vector[(1; (2^(k) * θ))]" a1="k" a2="0" a3="3"/>
	<output a0="list2"/>
</command>
<element type="list" label="list2">
	<show object="true" label="false" ev="4"/>
	<objColor r="0" g="0" b="255" alpha="0.0"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<layer val="0"/>
	<labelMode val="0"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="5" type="0" typeHidden="1"/>
	<pointSize val="3"/>
	<pointStyle val="-1"/>
</element>
<expression label ="s1" exp="{1, 2, 4, 8}"/>
<element type="list" label="s1">
	<objColor r="0" g="100" b="0" alpha="0.1"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<animation step="1" speed="1" type="0" playing="false"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="2" type="0" typeHidden="1"/>
	<pointSize val="3"/>
	<pointStyle val="-1"/>
</element>
<expression label ="s2" exp="{3, 5, 6, 7}"/>
<element type="list" label="s2">
	<objColor r="0" g="100" b="0" alpha="0.1"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<animation step="1" speed="1" type="0" playing="false"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="2" type="0" typeHidden="1"/>
	<pointSize val="3"/>
	<pointStyle val="-1"/>
</element>
<command name="Zip">
	<input a0="Vector[(1; (k * θ))]" a1="k" a2="s2"/>
	<output a0="list3"/>
</command>
<element type="list" label="list3">
	<show object="true" label="false" ev="4"/>
	<objColor r="255" g="0" b="0" alpha="0.0"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<layer val="0"/>
	<labelMode val="0"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="5" type="0" typeHidden="1"/>
	<pointSize val="3"/>
	<pointStyle val="-1"/>
</element>
<command name="Zip">
	<input a0="Vector[(1; ((-k) * θ))]" a1="k" a2="s2"/>
	<output a0="list4"/>
</command>
<element type="list" label="list4">
	<show object="true" label="false" ev="4"/>
	<objColor r="255" g="0" b="0" alpha="0.0"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<layer val="0"/>
	<labelMode val="0"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="5" type="20" typeHidden="1"/>
	<pointSize val="3"/>
	<pointStyle val="-1"/>
</element>
<command name="Zip">
	<input a0="Vector[(1; ((-k) * θ))]" a1="k" a2="s1"/>
	<output a0="list5"/>
</command>
<element type="list" label="list5">
	<show object="true" label="false" ev="4"/>
	<objColor r="0" g="0" b="255" alpha="0.0"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<layer val="0"/>
	<labelMode val="0"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="5" type="20" typeHidden="1"/>
	<pointSize val="3"/>
	<pointStyle val="-1"/>
</element>
<element type="point" label="P">
	<show object="false" label="true" ev="4"/>
	<objColor r="0" g="0" b="255" alpha="0.0"/>
	<layer val="0"/>
	<labelMode val="0"/>
	<animation step="0.1" speed="1" type="1" playing="false"/>
	<coords x="-0.05407906836983439" y="0.06795872322864203" z="1.0"/>
	<pointSize val="3"/>
	<pointStyle val="0"/>
</element>
<element type="numeric" label="r">
	<value val="1.2"/>
	<show object="false" label="true"/>
	<objColor r="0" g="0" b="0" alpha="0.1"/>
	<layer val="0"/>
	<labelMode val="1"/>
	<animation step="0.1" speed="1" type="0" playing="false"/>
</element>
<command name="Sequence">
	<input a0="Text[If[k ≟ 0, &quot;1&quot;, &quot;ω^{&quot; + (k) + &quot;}&quot;], (r; (k * θ)) + P, true, true]" a1="k" a2="0" a3="16"/>
	<output a0="list6"/>
</command>
<element type="list" label="list6">
	<show object="true" label="false" ev="4"/>
	<objColor r="0" g="0" b="0" alpha="0.0"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<layer val="0"/>
	<labelMode val="0"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="2" type="0" typeHidden="1"/>
	<pointSize val="3"/>
	<pointStyle val="-1"/>
</element>
<command name="Polygon">
	<input a0="Element[list1, 1]" a1="Element[list1, 2]" a2="17"/>
	<output a0="poly1"/>
</command>
<element type="polygon" label="poly1">
	<lineStyle thickness="2" type="0" typeHidden="1"/>
	<show object="true" label="false" ev="4"/>
	<objColor r="153" g="51" b="0" alpha="0.1"/>
	<layer val="0"/>
	<labelMode val="0"/>
</element>
</construction>
</geogebra>

Loading the GeoGebra board and drawing, please wait…

<?xml version="1.0" encoding="utf-8"?>
<geogebra format="5.0" version="5.0.164.0" id="2862e9b6-6381-466c-9bd1-3547e656d135"  xsi:noNamespaceSchemaLocation="http://www.geogebra.org/ggb.xsd" xmlns="" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" >
<gui>
	<window width="800" height="600" />
	<perspectives>
<perspective id="tmp">
	<panes>
		<pane location="" divider="0.25" orientation="1" />
	</panes>
	<views>
		<view id="4097" visible="false" inframe="true" stylebar="true" location="1,1,1,1" size="400" window="866,262,700,550" />
		<view id="4" toolbar="0 || 2020 , 2021 , 2022 , 66 || 2001 , 2003 , 2002 , 2004 , 2005 || 2040 , 2041 , 2042 , 2044 , 2043" visible="false" inframe="false" stylebar="false" location="1,1" size="300" window="100,100,600,400" />
		<view id="8" toolbar="1001 | 1002 | 1003  || 1005 | 1004 || 1006 | 1007 | 1010 || 1008 1009 || 66 68 || 6" visible="false" inframe="false" stylebar="false" location="1,3" size="300" window="100,100,600,400" />
		<view id="1" visible="true" inframe="false" stylebar="true" location="1" size="789" window="100,100,600,400" />
		<view id="2" visible="false" inframe="false" stylebar="true" location="3" size="200" window="208,302,250,400" />
		<view id="16" visible="false" inframe="false" stylebar="false" location="1" size="150" window="50,50,500,500" />
		<view id="32" visible="false" inframe="false" stylebar="true" location="1" size="150" window="50,50,500,500" />
		<view id="64" toolbar="0" visible="false" inframe="true" stylebar="true" location="1" size="150" window="50,50,500,500" />
		<view id="70" toolbar="0 || 2020 || 2021 || 2022" visible="false" inframe="true" stylebar="true" location="1" size="150" window="50,50,500,500" />
		<view id="512" toolbar="0 | 1 501 5 19 , 67 | 2 15 45 18 , 7 37 | 514 3 9 , 13 44 , 47 | 16 | 551 550 11 ,  20 22 21 23 , 55 56 57 , 12 | 69 | 510 511 , 512 513 | 533 531 , 534 532 , 522 523 , 537 536 , 535 | 521 520 | 36 , 38 49 560 | 571 30 29 570 31 33 | 17 | 540 40 41 42 , 27 28 35 , 6 , 502" visible="false" inframe="false" stylebar="false" location="1" size="300" window="50,50,500,500" />
	</views>
	<toolbar show="true" items="0 39 | 1 501 67 , 5 19 , 72 | 2 15 45 , 18 65 , 7 37 | 4 3 8 9 , 13 44 , 58 , 47 | 16 51 64 , 70 | 10 34 53 11 , 24  20 22 , 21 23 | 55 56 57 , 12 | 36 46 , 38 49  50 , 71 | 30 29 54 32 31 33 | 17 26 62 73 , 14 68 | 25 52 60 61 | 40 41 42 , 27 28 35 , 6" position="1" help="true" />
	<input show="true" cmd="true" top="false" />
	<dockBar show="true" east="true" />
</perspective>
	</perspectives>
	<labelingStyle  val="3"/>
	<font  size="12"/>
</gui>
<euclidianView>
	<viewNumber viewNo="1"/>
	<size  width="789" height="467"/>
	<coordSystem xZero="371.55522355078676" yZero="240.30343870647079" scale="118.75649904148297" yscale="118.75636761212566"/>
	<evSettings axes="false" grid="false" gridIsBold="false" pointCapturing="3" rightAngleStyle="1" checkboxSize="26" gridType="0"/>
	<bgColor r="255" g="255" b="255"/>
	<axesColor r="0" g="0" b="0"/>
	<gridColor r="192" g="192" b="192"/>
	<lineStyle axes="0" grid="10"/>
	<axis id="0" show="false" label="" unitLabel="" tickStyle="1" showNumbers="false"/>
	<axis id="1" show="false" label="" unitLabel="" tickStyle="1" showNumbers="false"/>
</euclidianView>
<kernel>
	<uses3D val="true"/>
	<continuous val="false"/>
	<usePathAndRegionParameters val="true"/>
	<decimals val="2"/>
	<angleUnit val="degree"/>
	<algebraStyle val="0"/>
	<coordStyle val="0"/>
	<angleFromInvTrig val="false"/>
</kernel>
<scripting blocked="false" disabled="false"/>
<construction title="" author="" date="">
<element type="numeric" label="θ">
	<value val="0.36959913571644626"/>
	<show object="false" label="true"/>
	<objColor r="0" g="0" b="0" alpha="0.1"/>
	<layer val="0"/>
	<labelMode val="1"/>
	<animation step="0.1" speed="1" type="0" playing="false"/>
</element>
<command name="Sequence">
	<input a0="(1; (k * θ))" a1="k" a2="1" a3="17"/>
	<output a0="list1"/>
</command>
<element type="list" label="list1">
	<show object="true" label="false" ev="4"/>
	<objColor r="255" g="215" b="0" alpha="0.0"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<layer val="1"/>
	<labelMode val="0"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="2" type="0" typeHidden="1"/>
	<pointSize val="4"/>
	<pointStyle val="-1"/>
</element>
<command name="Sequence">
	<input a0="Vector[(1; (2^(k) * θ))]" a1="k" a2="0" a3="3"/>
	<output a0="list2"/>
</command>
<element type="list" label="list2">
	<show object="true" label="false" ev="4"/>
	<objColor r="0" g="0" b="255" alpha="0.0"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<layer val="0"/>
	<labelMode val="0"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="5" type="0" typeHidden="1"/>
	<pointSize val="3"/>
	<pointStyle val="-1"/>
</element>
<expression label ="s1" exp="{1, 2, 4, 8}"/>
<element type="list" label="s1">
	<objColor r="0" g="100" b="0" alpha="0.1"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<animation step="1" speed="1" type="0" playing="false"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="2" type="0" typeHidden="1"/>
	<pointSize val="3"/>
	<pointStyle val="-1"/>
</element>
<expression label ="s2" exp="{3, 5, 6, 7}"/>
<element type="list" label="s2">
	<objColor r="0" g="100" b="0" alpha="0.1"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<animation step="1" speed="1" type="0" playing="false"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="2" type="0" typeHidden="1"/>
	<pointSize val="3"/>
	<pointStyle val="-1"/>
</element>
<command name="Zip">
	<input a0="Vector[(1; (k * θ))]" a1="k" a2="s2"/>
	<output a0="list3"/>
</command>
<element type="list" label="list3">
	<show object="true" label="false" ev="4"/>
	<objColor r="255" g="0" b="0" alpha="0.0"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<layer val="0"/>
	<labelMode val="0"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="5" type="0" typeHidden="1"/>
	<pointSize val="3"/>
	<pointStyle val="-1"/>
</element>
<command name="Zip">
	<input a0="Vector[(1; ((-k) * θ))]" a1="k" a2="s2"/>
	<output a0="list4"/>
</command>
<element type="list" label="list4">
	<show object="true" label="false" ev="4"/>
	<objColor r="255" g="0" b="0" alpha="0.0"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<layer val="0"/>
	<labelMode val="0"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="5" type="20" typeHidden="1"/>
	<pointSize val="3"/>
	<pointStyle val="-1"/>
</element>
<command name="Zip">
	<input a0="Vector[(1; ((-k) * θ))]" a1="k" a2="s1"/>
	<output a0="list5"/>
</command>
<element type="list" label="list5">
	<show object="true" label="false" ev="4"/>
	<objColor r="0" g="0" b="255" alpha="0.0"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<layer val="0"/>
	<labelMode val="0"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="5" type="20" typeHidden="1"/>
	<pointSize val="3"/>
	<pointStyle val="-1"/>
</element>
<element type="point" label="P">
	<show object="false" label="true" ev="4"/>
	<objColor r="0" g="0" b="255" alpha="0.0"/>
	<layer val="0"/>
	<labelMode val="0"/>
	<animation step="0.1" speed="1" type="1" playing="false"/>
	<coords x="-0.05407906836983439" y="0.06795872322864203" z="1.0"/>
	<pointSize val="3"/>
	<pointStyle val="0"/>
</element>
<element type="numeric" label="r">
	<value val="1.2"/>
	<show object="false" label="true"/>
	<objColor r="0" g="0" b="0" alpha="0.1"/>
	<layer val="0"/>
	<labelMode val="1"/>
	<animation step="0.1" speed="1" type="0" playing="false"/>
</element>
<command name="Sequence">
	<input a0="Text[If[k ≟ 0, &quot;1&quot;, &quot;ω^{&quot; + (k) + &quot;}&quot;], (r; (k * θ)) + P, true, true]" a1="k" a2="0" a3="16"/>
	<output a0="list6"/>
</command>
<element type="list" label="list6">
	<show object="true" label="false" ev="4"/>
	<objColor r="0" g="0" b="0" alpha="0.0"/>
	<bgColor r="255" g="255" b="255" alpha="255"/>
	<layer val="0"/>
	<labelMode val="0"/>
	<selectionAllowed val="false"/>
	<lineStyle thickness="2" type="0" typeHidden="1"/>
	<pointSize val="3"/>
	<pointStyle val="-1"/>
</element>
<command name="Polygon">
	<input a0="Element[list1, 1]" a1="Element[list1, 2]" a2="17"/>
	<output a0="poly1"/>
</command>
<element type="polygon" label="poly1">
	<lineStyle thickness="2" type="0" typeHidden="1"/>
	<show object="true" label="false" ev="4"/>
	<objColor r="153" g="51" b="0" alpha="0.1"/>
	<layer val="0"/>
	<labelMode val="0"/>
</element>
</construction>
</geogebra>