Geometric Construction of the Spiral of Theodorus
2020-03-03 07:02
This GeoGebra applet demonstrates the geometric construction of the Spiral of Theodorus, composed of contiguous right triangles. The hypotenuse of each triangle is a leg of the next, with the other leg being 1. Using IterationList, Sequence, Rotate, and Dilate, it dynamically shows how to generate this spiral via planar transformations, visualizing the Pythagorean theorem.
In collections
Lumei Junior High Math Geometry Models
<?xml version="1.0" encoding="utf-8"?>
<geogebra format="5.0" version="5.0.574.0" app="classic" platform="w" id="E98665D1-C6F0-4DDD-BFFE-C6564463405A" xsi:noNamespaceSchemaLocation="http://www.geogebra.org/apps/xsd/ggb.xsd" xmlns="" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" >
<gui>
<window width="1229" height="601" />
<perspectives>
<perspective id="tmp">
<panes>
<pane location="" divider="1" orientation="1" />
</panes>
<views>
<view id="512" toolbar="0 | 1 501 5 19 , 67 | 2 15 45 18 , 7 37 | 514 3 9 , 13 44 , 47 | 16 51 | 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,1,1" size="500" window="100,100,600,400" />
<view id="4" toolbar="0 || 2020 , 2021 , 2022 || 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 || 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="false" location="3" size="1229" window="100,100,600,400" />
<view id="2" visible="false" inframe="false" stylebar="true" location="3" size="415" window="100,100,600,400" />
<view id="16" visible="false" inframe="false" stylebar="false" location="1" size="300" window="50,50,500,500" />
<view id="32" visible="false" inframe="false" stylebar="true" location="1" size="300" window="50,50,500,500" />
<view id="64" toolbar="0" visible="false" inframe="false" stylebar="false" location="1" size="480" window="50,50,500,500" />
<view id="128" visible="false" inframe="false" stylebar="false" location="1" size="480" window="50,50,500,500" />
<view id="4097" visible="false" inframe="false" stylebar="true" location="1" size="1017" window="100,100,700,550" />
<view id="70" toolbar="0 || 2020 || 2021 || 2022" visible="false" inframe="false" stylebar="true" location="1" size="900" window="50,50,500,500" />
<view id="43" visible="false" inframe="false" stylebar="false" location="1" size="450" window="50,50,500,500" />
</views>
<toolbar show="true" items="0 73 62 | 1 501 67 , 5 19 , 72 75 76 | 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 14 68 | 30 29 54 32 31 33 | 25 17 26 60 52 61 | 40 41 42 , 27 28 35 , 6" position="1" help="false" />
<input show="true" cmd="true" top="false" />
<dockBar show="false" east="false" />
</perspective>
</perspectives>
<labelingStyle val="3"/>
<font size="18"/>
</gui>
<euclidianView>
<viewNumber viewNo="1"/>
<size width="1228" height="504"/>
<coordSystem xZero="644.8901590291874" yZero="313.92763893113647" scale="135.73560854614763" yscale="135.73560854614666"/>
<evSettings axes="false" grid="false" gridIsBold="false" pointCapturing="3" rightAngleStyle="1" checkboxSize="26" gridType="3"/>
<bgColor r="255" g="234" b="205"/>
<axesColor r="0" g="0" b="0"/>
<gridColor r="192" g="192" b="192"/>
<lineStyle axes="1" grid="0"/>
<axis id="0" show="false" label="" unitLabel="" tickStyle="1" showNumbers="true"/>
<axis id="1" show="false" label="" unitLabel="" tickStyle="1" showNumbers="true"/>
</euclidianView>
<kernel>
<continuous val="false"/>
<usePathAndRegionParameters val="true"/>
<decimals val="2"/>
<angleUnit val="degree"/>
<algebraStyle val="3" spreadsheet="0"/>
<coordStyle val="0"/>
</kernel>
<tableview min="-2" max="2" step="1"/>
<scripting blocked="false" disabled="false"/>
<construction title="毕氏螺线 " author="" date="">
<element type="angle" label="α">
<angleStyle val="3"/>
<value val="0.2792526803190927"/>
<slider min="0°" max="180°" absoluteScreenLocation="true" width="100" x="72" y="208" fixed="false" horizontal="true" showAlgebra="true"/>
<show object="true" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<lineStyle thickness="10" type="0" typeHidden="2" opacity="178"/>
<arcSize val="30"/>
<animation step="1°" speed="1" type="0" playing="false"/>
</element>
<element type="numeric" label="n">
<value val="15"/>
<show object="true" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelOffset x="-45" y="-9"/>
<labelMode val="1"/>
<slider min="1" max="20" absoluteScreenLocation="true" width="100" x="61" y="94" fixed="false" horizontal="true" showAlgebra="true"/>
<lineStyle thickness="10" type="0" typeHidden="1"/>
<animation step="1" speed="1" type="0" playing="false"/>
</element>
<expression label="P" exp="(1, 0)" type="point"/>
<element type="point" label="P">
<show object="false" label="true"/>
<objColor r="77" g="77" b="255" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<animation step="0.1" speed="1" type="1" playing="false"/>
<coords x="1" y="0" z="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<expression label="O" exp="(0, 0)" type="point"/>
<element type="point" label="O">
<show object="false" label="true"/>
<objColor r="77" g="77" b="255" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<animation step="0.1" speed="1" type="1" playing="false"/>
<coords x="0" y="0" z="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<command name="IterationList">
<input a0="Rotate[a + Vector[a, O] / Segment[a, O], ((-π)) / 2, a]" a1="a" a2="{P}" a3="n - 1"/>
<output a0="Ps"/>
</command>
<element type="list" label="Ps">
<show object="true" label="false"/>
<objColor r="0" g="100" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<element type="numeric" label="t">
<value val="0.27"/>
<show object="true" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<slider min="0" max="1" absoluteScreenLocation="true" width="100" x="69" y="148" fixed="false" horizontal="true" showAlgebra="true"/>
<lineStyle thickness="10" type="0" typeHidden="1"/>
<animation step="0.01" speed="1" type="0" playing="false"/>
</element>
<command name="Sequence">
<input a0="Dilate[O, t, Ps(k)]" a1="k" a2="1" a3="n"/>
<output a0="As"/>
</command>
<element type="list" label="As">
<show object="false" label="false"/>
<objColor r="0" g="100" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Rotate">
<input a0="As" a1="α" a2="O"/>
<output a0="Bs"/>
</command>
<element type="list" label="Bs">
<show object="false" label="false"/>
<objColor r="0" g="100" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Midpoint[O, Ps(k)]" a1="k" a2="1" a3="n"/>
<output a0="midOPs"/>
</command>
<element type="list" label="midOPs">
<show object="false" label="false"/>
<objColor r="0" g="100" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Segment[O, Ps(k)]" a1="k" a2="1" a3="n"/>
<output a0="OPs"/>
</command>
<element type="list" label="OPs">
<show object="true" label="false" ev="4"/>
<objColor r="0" g="0" b="0" alpha="0" dynamicr="0.45" dynamicg="0.54" dynamicb="0.1" colorSpace="0"/>
<layer val="0"/>
<labelMode val="0"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Segment[Ps(k), Ps(k + 1)]" a1="k" a2="1" a3="n - 1"/>
<output a0="PPs"/>
</command>
<element type="list" label="PPs">
<show object="true" label="false" ev="4"/>
<objColor r="0" g="0" b="255" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Midpoint">
<input a0="O" a1="P"/>
<output a0="midOP"/>
</command>
<element type="point" label="midOP">
<show object="false" label="false"/>
<objColor r="68" g="68" b="68" alpha="0"/>
<layer val="0"/>
<labelOffset x="-3" y="-7"/>
<labelMode val="0"/>
<coords x="0.5" y="0" z="1"/>
<pointSize val="4"/>
<pointStyle val="0"/>
</element>
<command name="IterationList">
<input a0="Rotate[a + Vector[a, O] / Segment[a, O], ((-π)) / 2, a]" a1="a" a2="{P}" a3="n - 1"/>
<output a0="l1"/>
</command>
<element type="list" label="l1">
<show object="false" label="false"/>
<objColor r="0" g="100" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Dilate">
<input a0="O" a1="t" a2="P"/>
<output a0="A"/>
</command>
<element type="point" label="A">
<show object="false" label="true"/>
<objColor r="77" g="77" b="255" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<coords x="0.73" y="0" z="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Text["$\sqrt{" + (k) + "}$", Bs(k), true, true]" a1="k" a2="2" a3="n"/>
<output a0="Ts"/>
</command>
<element type="list" label="Ts">
<show object="true" label="true" ev="4"/>
<objColor r="255" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="2"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
</construction>
</geogebra>