Pinna Illusion Geometric Demonstration
2018-02-12 15:24
This applet demonstrates the famous Pinna Illusion. Using GeoGebra commands such as PolyLine, Distance, and Sequence, it constructs the geometric patterns that create this optical illusion. Users can adjust parameters to observe changes in the figure, exploring the rotational or motion illusion caused by specific geometric arrangements and understanding the connection between visual perception and
In collections
我的第一个GGB绘本
<?xml version="1.0" encoding="utf-8"?>
<geogebra format="5.0" version="5.0.414.0" app="classic" platform="d" id="03b31ca6-b637-4b51-adb6-72329aa55cf9" xsi:noNamespaceSchemaLocation="http://www.geogebra.org/ggb.xsd" xmlns="" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" >
<gui>
<window width="660" height="712" />
<perspectives>
<perspective id="tmp">
<panes>
<pane location="" divider="0.41818181818181815" orientation="1" />
</panes>
<views>
<view id="4097" visible="false" inframe="true" stylebar="true" location="1,1,1,1" size="400" window="331,199,700,550" />
<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,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="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="649" window="100,100,600,400" />
<view id="2" visible="false" inframe="true" stylebar="true" location="3" size="276" window="83,179,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" />
</views>
<toolbar show="true" items="0 39 | 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 | 30 29 54 32 31 33 | 17 26 62 73 , 14 68 | 25 52 60 61 | 40 41 42 , 27 28 35 , 6 || 100001 " position="1" help="false" />
<input show="true" cmd="true" top="algebra" />
<dockBar show="true" east="true" />
</perspective>
</perspectives>
<labelingStyle val="3"/>
<font size="16"/>
</gui>
<euclidianView>
<viewNumber viewNo="1"/>
<size width="649" height="579"/>
<coordSystem xZero="263.2588240603776" yZero="334.49700038902705" scale="26.75212351439432" yscale="26.752123514394288"/>
<evSettings axes="false" grid="false" gridIsBold="false" pointCapturing="3" rightAngleStyle="1" checkboxSize="26" gridType="0"/>
<bgColor r="192" g="192" b="192"/>
<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>
<spreadsheetView>
<prefCellSize height="26"/>
</spreadsheetView>
<kernel>
<continuous val="false"/>
<usePathAndRegionParameters val="true"/>
<decimals val="2"/>
<angleUnit val="degree"/>
<algebraStyle val="0" spreadsheet="0"/>
<coordStyle val="0"/>
</kernel>
<scripting blocked="false" disabled="false"/>
<construction title="Pinna Illusion" author="" date="">
<worksheetText above="Quilting expert Elizabeth Clark sent me this nice image of my favorite optical illusion on a quilt, https://thequiltshow.com/daily-blog/142-newsletter/26689-vertigo-by-elaine-wick-poplin/, and I realized that I'd never made it. Of course had to generalize a bit, and the conditions for the illusion are pretty specific. Fun project." below=""/>
<element type="point" label="A">
<show object="true" label="true" ev="4"/>
<condition showObject="b"/>
<objColor r="255" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<animation step="0.1" speed="1" type="1" playing="false"/>
<isShape val="false"/>
<coords x="2.3847462391273555" y="0.8263362860571596" z="1.0"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<element type="point" label="B">
<show object="true" label="true" ev="4"/>
<condition showObject="b"/>
<objColor r="255" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<animation step="1" speed="1" type="1" playing="false"/>
<isShape val="false"/>
<coords x="2.1906326812186228" y="2.833968028537078" z="1.0"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<element type="point" label="C">
<show object="true" label="true" ev="4"/>
<condition showObject="b"/>
<objColor r="255" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelOffset x="7" y="-4"/>
<labelMode val="0"/>
<animation step="0.1" speed="1" type="1" playing="false"/>
<isShape val="false"/>
<coords x="2.7982309229562103" y="2.8096640988675743" z="1.0"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<element type="point" label="D">
<show object="true" label="true" ev="4"/>
<condition showObject="b"/>
<objColor r="255" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<animation step="1" speed="1" type="1" playing="false"/>
<isShape val="false"/>
<coords x="2.822534852625714" y="3.417262340605162" z="1.0"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<element type="point" label="E">
<show object="true" label="true" ev="4"/>
<condition showObject="b"/>
<objColor r="255" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<animation step="0.1" speed="1" type="1" playing="false"/>
<isShape val="false"/>
<coords x="2.2149366108881265" y="3.4415662702746657" z="1.0"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<command name="PolyLine">
<input a0="B" a1="C" a2="D" a3="E" a4="B"/>
<output a0="f"/>
</command>
<element type="polyline" label="f">
<lineStyle thickness="5" type="0" typeHidden="1" opacity="178"/>
<show object="true" label="false" ev="8"/>
<condition showObject="(¬a) ∧ b"/>
<objColor r="255" g="215" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
</element>
<element type="numeric" label="n">
<value val="14.0"/>
<show object="true" label="true"/>
<condition showObject="b"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<slider min="4" max="20" absoluteScreenLocation="true" width="200.0" x="13.0" y="31.0" fixed="false" horizontal="true" showAlgebra="true"/>
<lineStyle thickness="10" type="0" typeHidden="1"/>
<animation step="2" speed="1" type="0" playing="false"/>
</element>
<expression label="F" exp="(B + C + D + E) / 4" type="point" />
<element type="point" label="F">
<show object="false" label="true"/>
<objColor r="255" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<isShape val="false"/>
<coords x="2.5065837669221684" y="3.12561518457112" z="1.0"/>
<pointSize val="3"/>
<pointStyle val="0"/>
</element>
<element type="angle" label="α">
<angleStyle val="3"/>
<value val="0.15707963267948966"/>
<slider min="0" max="90°" absoluteScreenLocation="true" width="180.0" x="462.0" y="40.0" fixed="false" horizontal="true" showAlgebra="true"/>
<show object="true" label="true" ev="4"/>
<condition showObject="b"/>
<objColor r="0" g="100" 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>
<command name="Distance">
<input a0="A" a1="E"/>
<output a0="d"/>
</command>
<element type="numeric" label="d">
<value val="2.6207371444296053"/>
<symbolic val="true" />
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
</element>
<element type="numeric" label="m">
<value val="4.0"/>
<show object="true" label="true"/>
<condition showObject="b"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelOffset x="-14" y="44"/>
<labelMode val="1"/>
<slider min="1" max="7" absoluteScreenLocation="true" width="200.0" x="13.0" y="55.0" 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="G" exp="C + OrthogonalVector[Segment[B, C]]" type="point" />
<element type="point" label="G">
<show object="false" label="true"/>
<objColor r="68" g="68" b="68" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<isShape val="false"/>
<coords x="2.822534852625714" y="3.417262340605162" z="1.0"/>
<pointSize val="3"/>
<pointStyle val="0"/>
</element>
<expression label="H" exp="B + G - C" type="point" />
<element type="point" label="H">
<show object="false" label="true"/>
<objColor r="68" g="68" b="68" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<isShape val="false"/>
<coords x="2.2149366108881265" y="3.4415662702746657" z="1.0"/>
<pointSize val="3"/>
<pointStyle val="0"/>
</element>
<element type="button" label="button1">
<show object="true" label="true"/>
<condition showObject="b"/>
<objColor r="0" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelOffset x="284" y="4"/>
<labelMode val="0"/>
<animation step="1" speed="1" type="0" playing="false"/>
<isShape val="false"/>
<auxiliary val="true"/>
<ggbscript val="SetValue(D,G) SetValue(E,H)"/>
<font serif="false" sizeM="1.4" size="7" style="0"/>
<caption val="Square Up"/>
</element>
<element type="boolean" label="a">
<value val="false"/>
<show object="true" label="true"/>
<condition showObject="b"/>
<objColor r="0" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelOffset x="515" y="49"/>
<labelMode val="4"/>
<caption val="extra turn"/>
</element>
<command name="Sequence">
<input a0="Sequence[Rotate[Translate[PolyLine[Rotate[B, ((((-1)^(j) * 2) * (1 + ((i - 1) * a))) * α), F], Rotate[C, ((((-1)^(j) * 2) * (1 + ((i - 1) * a))) * α), F], Rotate[D, ((((-1)^(j) * 2) * (1 + ((i - 1) * a))) * α), F], Rotate[E, ((((-1)^(j) * 2) * (1 + ((i - 1) * a))) * α), F], Rotate[B, ((((-1)^(j) * 2) * (1 + ((i - 1) * a))) * α), F]], ((j - 1) * (F - A))], ((i * 720) * ° / ((j * n))) + ((j * 360) * ° / n), A], i, 1, (j * n / 2)]" a1="j" a2="1" a3="m"/>
<output a0="L_1"/>
</command>
<element type="list" label="L_1">
<show object="true" label="false" ev="4"/>
<objColor r="255" g="255" b="255" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<isShape val="false"/>
<lineStyle thickness="9" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="-1"/>
</element>
<command name="Sequence">
<input a0="Sequence[Rotate[Translate[PolyLine[Rotate[B, ((((-1)^(j) * 2) * (1 + ((i - 1) * a))) * α), F], Rotate[C, ((((-1)^(j) * 2) * (1 + ((i - 1) * a))) * α), F], Rotate[D, ((((-1)^(j) * 2) * (1 + ((i - 1) * a))) * α), F], Rotate[E, ((((-1)^(j) * 2) * (1 + ((i - 1) * a))) * α), F], Rotate[B, ((((-1)^(j) * 2) * (1 + ((i - 1) * a))) * α), F]], ((j - 1) * (F - A))], ((i * 720) * ° / ((j * n))) + (((j - 1) * 360) * ° / ((j * n))), A], i, 0, (j * n / 2) - 1]" a1="j" a2="1" a3="m"/>
<output a0="L_2"/>
</command>
<element type="list" label="L_2">
<show object="true" label="false"/>
<objColor r="0" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelMode val="0"/>
<isShape val="false"/>
<lineStyle thickness="9" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="-1"/>
</element>
<element type="boolean" label="b">
<value val="true"/>
<show object="true" label="false"/>
<objColor r="0" g="0" b="0" alpha="0.0"/>
<layer val="0"/>
<labelOffset x="22" y="529"/>
<labelMode val="4"/>
</element>
</construction>
</geogebra>