String Art: The Beauty of Rotation and Geometric Construction
2020-08-29 13:41
This applet demonstrates the mathematical construction of String Art. Using GeoGebra commands like Rotate, Segment, and Sequence, it generates intersecting line segments to form beautiful curve envelopes. Showcasing the intersection of math and art, it involves the Pythagorean theorem and rhombuses, ideal for exploring geometric construction, rotational transformations, and function graphing.
<?xml version="1.0" encoding="utf-8"?>
<geogebra format="5.0" version="5.0.596.0" app="classic" platform="d" id="69ba1a74-e163-4550-a05e-1b05e900fa67" xsi:noNamespaceSchemaLocation="http://www.geogebra.org/apps/xsd/ggb.xsd" xmlns="" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" >
<gui>
<window width="981" height="960" />
<perspectives>
<perspective id="tmp">
<panes>
<pane location="" divider="0.1019367991845056" orientation="1" />
</panes>
<views>
<view id="8" toolbar="1001 | 1002 | 1003 || 1005 | 1004 || 1006 | 1007 | 1010 || 1008 1009 || 66 68 || 6" visible="false" inframe="false" stylebar="false" location="3,1,3" size="481" window="100,100,600,400" />
<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 , 538 | 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 , 66 || 2001 , 2003 , 2002 , 2004 , 2005 || 2040 , 2041 , 2042 , 2044 , 2043" visible="false" inframe="false" stylebar="true" location="1,1" size="300" window="100,100,600,400" />
<view id="1" visible="true" inframe="false" stylebar="true" location="1" size="954" window="100,100,600,400" />
<view id="2" visible="false" inframe="false" stylebar="true" location="3" size="434" window="100,100,600,400" />
<view id="16" visible="false" inframe="false" stylebar="false" location="1" size="994" 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="false" stylebar="false" location="1" size="150" window="50,50,500,500" />
<view id="4097" visible="false" inframe="false" stylebar="true" location="1" size="349" window="100,100,700,550" />
<view id="70" toolbar="0 || 2020 || 2021 || 2022" visible="false" inframe="false" stylebar="true" location="1" size="150" window="50,50,500,500" />
</views>
<toolbar show="true" items="0 39 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 | 100003 100002 100001" position="1" help="true" />
<input show="true" cmd="true" top="true" />
<dockBar show="true" east="true" />
</perspective>
</perspectives>
<labelingStyle val="0"/>
<font size="18"/>
</gui>
<euclidianView>
<viewNumber viewNo="1"/>
<size width="954" height="754"/>
<coordSystem xZero="465.38268022258404" yZero="362.4895410014196" scale="282.9345068804352" yscale="282.93445711783835"/>
<evSettings axes="true" grid="false" gridIsBold="false" pointCapturing="3" rightAngleStyle="1" checkboxSize="26" gridType="0"/>
<bgColor r="0" g="0" b="0"/>
<axesColor r="0" g="0" b="0"/>
<gridColor r="192" g="192" b="192"/>
<lineStyle axes="11" grid="0"/>
<labelStyle axes="0" serif="true"/>
<axis id="0" show="true" label="" unitLabel="" tickStyle="1" showNumbers="true"/>
<axis id="1" show="true" label="" unitLabel="" tickStyle="1" showNumbers="true"/>
</euclidianView>
<algebraView>
<mode val="1"/>
</algebraView>
<kernel>
<continuous val="false"/>
<usePathAndRegionParameters val="true"/>
<decimals val="2"/>
<angleUnit val="degree"/>
<algebraStyle val="2" spreadsheet="0"/>
<coordStyle val="0"/>
</kernel>
<tableview min="-2.0" max="2.0" step="1.0"/>
<scripting blocked="false" disabled="false"/>
<construction title="" author="" date="">
<expression label="A" exp="(0, 0)" type="point"/>
<element type="point" label="A">
<show object="false" label="true" ev="4"/>
<objColor r="77" g="77" b="255" alpha="0.0"/>
<layer val="0"/>
<labelOffset x="-28" y="30"/>
<labelMode val="0"/>
<animation step="0.1" speed="1" type="1" playing="false"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<coords x="0.0" y="0.0" z="1.0"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<expression label="B" exp="(1, 0)" type="point"/>
<element type="point" label="B">
<show object="false" label="true" ev="4"/>
<objColor r="77" g="77" b="255" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<animation step="0.1" speed="1" type="1" playing="false"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<coords x="1.0" y="0.0" z="1.0"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<command name="Rotate">
<input a0="B" a1="60°" a2="A"/>
<output a0="C"/>
</command>
<element type="point" label="C">
<show object="false" label="true" ev="4"/>
<objColor r="77" g="77" b="255" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<coords x="0.5000000000000001" y="0.8660254037844386" z="1.0"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<command name="Segment">
<input a0="C" a1="A"/>
<output a0="f"/>
</command>
<element type="segment" label="f">
<show object="false" label="true" ev="4"/>
<objColor r="0" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<coords x="0.8660254037844386" y="-0.5000000000000001" z="0.0"/>
<lineStyle thickness="5" type="0" typeHidden="1" opacity="178"/>
<outlyingIntersections val="false"/>
<keepTypeOnTransform val="true"/>
</element>
<command name="Segment">
<input a0="A" a1="B"/>
<output a0="g"/>
</command>
<element type="segment" label="g">
<show object="false" label="true" ev="4"/>
<objColor r="0" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<coords x="0.0" y="1.0" z="0.0"/>
<lineStyle thickness="5" type="0" typeHidden="1" opacity="178"/>
<outlyingIntersections val="false"/>
<keepTypeOnTransform val="true"/>
</element>
<command name="CircleSector">
<input a0="A" a1="B" a2="C"/>
<output a0="c"/>
</command>
<element type="conicpart" label="c">
<show object="false" label="true" ev="4"/>
<objColor r="153" g="51" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="0"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<lineStyle thickness="5" type="0" typeHidden="1" opacity="178"/>
<eigenvectors x0="1.0" y0="0.0" z0="1.0" x1="-0.0" y1="1.0" z1="1.0"/>
<matrix A0="1.0" A1="1.0" A2="-1.0" A3="0.0" A4="-0.0" A5="-0.0"/>
<eqnStyle style="implicit"/>
<outlyingIntersections val="false"/>
<keepTypeOnTransform val="true"/>
</element>
<command name="Sequence">
<input a0="Segment[Point[c, i], Point[f, i]]" a1="i" a2="0" a3="1" a4="0.03"/>
<output a0="l1"/>
</command>
<element type="list" label="l1">
<show object="true" label="true" ev="4"/>
<objColor r="255" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<lineStyle thickness="1" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Segment[Point[g, i], Point[f, i]]" a1="i" a2="0" a3="1" a4="0.03"/>
<output a0="l2"/>
</command>
<element type="list" label="l2">
<show object="true" label="true" ev="4"/>
<objColor r="255" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<lineStyle thickness="1" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Segment[Point[g, i], Point[c, i]]" a1="i" a2="0" a3="1" a4="0.03"/>
<output a0="l3"/>
</command>
<element type="list" label="l3">
<show object="true" label="true" ev="4"/>
<objColor r="255" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<lineStyle thickness="1" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Rotate">
<input a0="{l1, l2, l3}" a1="60°" a2="A"/>
<output a0="l4"/>
</command>
<element type="list" label="l4">
<show object="true" label="true" ev="4"/>
<objColor r="255" g="215" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<lineStyle thickness="1" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Rotate">
<input a0="{l1, l2, l3}" a1="120°" a2="A"/>
<output a0="l5"/>
</command>
<element type="list" label="l5">
<show object="true" label="true" ev="4"/>
<objColor r="204" g="255" b="102" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<lineStyle thickness="1" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Rotate">
<input a0="{l1, l2, l3}" a1="(-(60°))" a2="A"/>
<output a0="l6"/>
</command>
<element type="list" label="l6">
<show object="true" label="true" ev="4"/>
<objColor r="255" g="0" b="255" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<lineStyle thickness="1" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Rotate">
<input a0="{l1, l2, l3}" a1="(-(120°))" a2="A"/>
<output a0="l7"/>
</command>
<element type="list" label="l7">
<show object="true" label="true" ev="4"/>
<objColor r="0" g="0" b="255" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<lineStyle thickness="1" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Rotate">
<input a0="{l1, l2, l3}" a1="180°" a2="A"/>
<output a0="l8"/>
</command>
<element type="list" label="l8">
<show object="true" label="true" ev="4"/>
<objColor r="153" g="255" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<lineStyle thickness="1" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Circle">
<input a0="A" a1="1"/>
<output a0="d"/>
</command>
<element type="conic" label="d">
<show object="true" label="false" ev="4"/>
<objColor r="0" g="255" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
<lineStyle thickness="5" type="0" typeHidden="1" opacity="178"/>
<eigenvectors x0="1.0" y0="0.0" z0="1.0" x1="-0.0" y1="1.0" z1="1.0"/>
<matrix A0="1.0" A1="1.0" A2="-1.0" A3="0.0" A4="-0.0" A5="-0.0"/>
<eqnStyle style="specific"/>
</element>
<expression label="text1" exp=""\quad制作：卢德洪\\
学自孟宝兴老师教程\\
\qquad2020.8.29""/>
<element type="text" label="text1">
<show object="true" label="false" ev="40"/>
<objColor r="255" g="255" b="255" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<isLaTeX val="true"/>
<font serif="true" sizeM="1.0" size="0" style="0"/>
<startPoint x="0.885778558934573" y="1.0655808559784337" z="1.0"/>
<ggbscript val=""/>
<ggbscript onUpdate=""/>
</element>
</construction>
</geogebra>