Simulation of Optical Reflection Properties of a Circular Paraboloid
2020-08-18 12:05
This GeoGebra applet dynamically simulates the optical reflection properties of a circular paraboloid using 3D vectors and surface commands. By constructing incident light rays and normal vectors, it demonstrates how parallel rays reflect and converge at the focal point. The model visually illustrates the principles behind satellite receivers and solar concentrators, combining spatial coordinate g
In collections
Conic Sections | GeoGebra Book Collection
<?xml version="1.0" encoding="utf-8"?>
<geogebra format="5.0" version="5.0.599.0" app="classic" platform="w" id="a14aa53f-b803-4f23-abe0-e2433b6b9e7f" xsi:noNamespaceSchemaLocation="http://www.geogebra.org/apps/xsd/ggb.xsd" xmlns="" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" >
<gui>
<window width="1218" height="502" />
<perspectives>
<perspective id="tmp">
<panes>
<pane location="" divider="0.7085385878489326" orientation="1" />
</panes>
<views>
<view id="1" visible="false" inframe="false" stylebar="false" location="3,1,3" size="1084" 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="2" visible="false" inframe="false" stylebar="false" location="3,3" size="344" 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="4097" visible="false" inframe="false" stylebar="true" location="1,1" size="395" window="611,245,920,550" />
<view id="16" visible="true" inframe="false" stylebar="false" location="1" size="345" 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="128" visible="false" inframe="false" stylebar="false" location="1" size="480" window="50,50,500,500" />
<view id="70" toolbar="0 || 2020 || 2021 || 2022" visible="false" inframe="false" 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="true" inframe="false" stylebar="true" location="3" size="863" window="660,320,600,400" />
</views>
<toolbar show="false" 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" position="1" help="false" />
<input show="false" cmd="true" top="algebra" />
<dockBar show="false" east="false" />
</perspective>
</perspectives>
<labelingStyle val="2"/>
<font size="24"/>
</gui>
<euclidianView>
<viewNumber viewNo="1"/>
<size width="1084" height="778"/>
<coordSystem xZero="510.99999999999994" yZero="425.9999999999999" scale="50" yscale="49.99999999999998"/>
<evSettings axes="true" grid="true" gridIsBold="false" pointCapturing="3" rightAngleStyle="1" checkboxSize="26" gridType="3"/>
<bgColor r="255" g="255" b="255"/>
<axesColor r="0" g="0" b="0"/>
<gridColor r="192" g="192" b="192"/>
<lineStyle axes="1" grid="0"/>
<axis id="0" show="true" label="" unitLabel="" tickStyle="1" showNumbers="true"/>
<axis id="1" show="true" label="" unitLabel="" tickStyle="1" showNumbers="true"/>
</euclidianView>
<euclidianView>
<viewNumber viewNo="2"/>
<size width="345" height="500"/>
<coordSystem xZero="126.00000000000001" yZero="274.0000000000002" scale="49.99999999999998" yscale="50.00000000000002"/>
<evSettings axes="false" grid="false" gridIsBold="false" pointCapturing="3" rightAngleStyle="1" checkboxSize="26" gridType="3"/>
<bgColor r="255" g="255" b="255"/>
<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>
<uses3D val="true"/>
<continuous val="false"/>
<usePathAndRegionParameters val="true"/>
<decimals val="2"/>
<angleUnit val="degree"/>
<algebraStyle val="0" spreadsheet="0"/>
<coordStyle val="0"/>
</kernel>
<tableview min="-2" max="2" step="1"/>
<scripting blocked="false" disabled="false"/>
<euclidianView3D>
<coordSystem xZero="-3.446111036968408" yZero="-0.936522374439682" zZero="0.4602468639088196" scale="29.119630996134482" xAngle="51" zAngle="20418.64014685149"/>
<evSettings axes="true" grid="false" gridIsBold="false" pointCapturing="3" rightAngleStyle="1" gridType="3"/>
<axis id="0" show="true" label="" unitLabel="" tickStyle="1" showNumbers="false"/>
<axis id="1" show="true" label="" unitLabel="" tickStyle="1" showNumbers="false"/>
<axis id="2" show="true" label="" unitLabel="" tickStyle="2" showNumbers="false" positiveAxis="true"/>
<plate show="false"/>
<bgColor r="32" g="32" b="32"/>
<clipping use="false" show="false" size="1"/>
<projection type="0"/>
</euclidianView3D>
<construction title="" author="" date="">
<element type="numeric" label="Py">
<value val="0"/>
<show object="true" label="true" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="1"/>
<labelMode val="1"/>
<slider min="-6" max="6" absoluteScreenLocation="true" width="100" x="153" y="184" fixed="false" horizontal="true" showAlgebra="true"/>
<lineStyle thickness="10" type="0" typeHidden="1"/>
<animation step="0.01" speed="1" type="0" playing="false"/>
</element>
<element type="numeric" label="Px">
<value val="0.48"/>
<show object="true" label="true" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="1"/>
<labelMode val="1"/>
<slider min="-6" max="6" absoluteScreenLocation="true" width="100" x="17" y="187" fixed="false" horizontal="true" showAlgebra="true"/>
<lineStyle thickness="10" type="0" typeHidden="1"/>
<animation step="0.01" speed="1" type="0" playing="false"/>
</element>
<element type="numeric" label="Pz">
<value val="1"/>
<show object="true" label="true" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="1"/>
<labelOffset x="1" y="3"/>
<labelMode val="1"/>
<slider min="0" max="z(LightDC) - 0.01" absoluteScreenLocation="true" width="100" x="14" y="240" fixed="false" horizontal="true" showAlgebra="true"/>
<lineStyle thickness="10" type="0" typeHidden="1"/>
<animation step="0.01" speed="1" type="0" playing="false"/>
</element>
<expression label="P" exp="(Px, Py, Pz)" type="point" />
<element type="point3d" label="P">
<show object="true" label="false" ev="5"/>
<objColor r="77" g="77" b="255" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<coords x="0.48" y="0" z="1" w="1"/>
<pointSize val="3"/>
</element>
<element type="point3d" label="LightDC">
<show object="true" label="false" ev="5"/>
<objColor r="77" g="77" b="255" alpha="0"/>
<layer val="1"/>
<labelMode val="0"/>
<animation step="1" speed="1" type="1" playing="false"/>
<coords x="-2.655476268645371" y="0.9647914657449803" z="4.373568543723174" w="1"/>
<pointSize val="7"/>
</element>
<element type="numeric" label="DPn">
<value val="7"/>
<show object="true" label="false" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="1"/>
<labelOffset x="-16" y="-3"/>
<labelMode val="1"/>
<slider min="1" max="15" absoluteScreenLocation="true" width="100" x="163" y="318" fixed="false" horizontal="true" showAlgebra="true"/>
<lineStyle thickness="10" type="0" typeHidden="1"/>
<animation step="1" speed="1" type="0" playing="false"/>
</element>
<command name="Join">
<input a0="Sequence[Sequence[(((q - 1) * 2) * π / 2^(k)), q, 1, 2^(k)], k, 0, 3]"/>
<output a0="LightDPA"/>
</command>
<element type="list" label="LightDPA">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<element type="numeric" label="LightDR">
<value val="2.8"/>
<show object="true" label="false" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="1"/>
<labelOffset x="43" y="9"/>
<labelMode val="1"/>
<slider min="0.05" max="4" absoluteScreenLocation="true" width="100" x="14" y="317" fixed="false" horizontal="true" showAlgebra="true"/>
<lineStyle thickness="10" type="0" typeHidden="1"/>
<animation step="0.05" speed="1" type="0" playing="false"/>
</element>
<command name="Vector">
<input a0="LightDC" a1="P"/>
<output a0="arrow"/>
</command>
<element type="vector3d" label="arrow">
<show object="true" label="false" ev="5"/>
<condition showObject="t ≟ 0"/>
<objColor r="224" g="224" b="224" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<coords x="3.135476268645371" y="-0.9647914657449803" z="-3.3735685437231737" w="0"/>
<lineStyle thickness="3" type="0" typeHidden="1"/>
<startPoint exp="LightDC"/>
</element>
<command name="Circle">
<input a0="LightDC" a1="LightDR" a2="arrow"/>
<output a0="D"/>
</command>
<element type="conic3d" label="D">
<show object="true" label="false" ev="5"/>
<objColor r="255" g="255" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="3" type="20" typeHidden="1"/>
<eigenvectors x0="1" y0="0" z0="1.0" x1="0" y1="1" z1="1.0"/>
<matrix A0="1" A1="1" A2="-7.839999999999999" A3="0" A4="0" A5="0"/>
<eqnStyle style="parametric"/>
</element>
<command name="Join">
<input a0="Sequence[Sequence[k, q, 1, 2^(k)], k, 0, 3]"/>
<output a0="LightDPR"/>
</command>
<element type="list" label="LightDPR">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Intersect">
<input a0="Plane[LightDC, yAxis]" a1="D"/>
<output a0="LightDPsd" a1="C"/>
</command>
<element type="point3d" label="LightDPsd">
<show object="false" label="false" ev="5"/>
<objColor r="125" g="125" b="255" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<coords x="-2.351547381341647" y="3.702866725474839" z="3.872997765992804" w="1"/>
<pointSize val="5"/>
</element>
<element type="point3d" label="C">
<show object="false" label="true" ev="4"/>
<objColor r="68" g="68" b="68" alpha="0"/>
<layer val="0"/>
<labelMode val="3"/>
<auxiliary val="true"/>
<coords x="-2.959405155949095" y="-1.7732837939848785" z="4.8741393214535425" w="1"/>
<pointSize val="4"/>
<caption val="不要刪掉 與 LightDPsd 相關"/>
</element>
<element type="numeric" label="refN">
<value val="5"/>
<show object="true" label="false" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="1"/>
<labelMode val="1"/>
<slider min="1" max="5" absoluteScreenLocation="true" width="100" x="15" y="363" fixed="false" horizontal="true" showAlgebra="true"/>
<lineStyle thickness="10" type="0" typeHidden="1"/>
<animation step="1" speed="1" type="0" playing="false"/>
</element>
<element type="numeric" label="a">
<value val="0.09"/>
<show object="true" label="true" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="1"/>
<labelMode val="1"/>
<slider min="0.01" max="2" absoluteScreenLocation="true" width="100" x="196" y="56" fixed="false" horizontal="true" showAlgebra="true"/>
<lineStyle thickness="10" type="0" typeHidden="1"/>
<animation step="0.005" speed="1" type="0" playing="false"/>
</element>
<expression label="f" exp="z = (a * (x^(2) + y^(2)))" type="quadric" />
<element type="quadric" label="f">
<show object="false" label="false" ev="5"/>
<condition showObject="d"/>
<objColor r="0" g="153" b="255" alpha="0.5"/>
<layer val="0"/>
<labelMode val="0"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<eigenvectors x0="1" y0="0" z0="0" x1="0" y1="1" z1="0" x2="0" y2="0" z2="1"/>
<matrix A0="-0.09" A1="-0.09" A2="0" A3="0" A4="0" A5="0" A6="0" A7="0" A8="0" A9="0.5"/>
<eqnStyle style="implicit"/>
</element>
<command name="Sequence">
<input a0="Rotate[LightDC + (LightDPR(k) / 3 * (LightDPsd - LightDC)), LightDPA(k), Line[LightDC, P]]" a1="k" a2="1" a3="DPn"/>
<output a0="LightDP"/>
</command>
<element type="list" label="LightDP">
<show object="true" label="false" ev="5"/>
<objColor r="255" g="127" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="2"/>
<angleStyle val="0"/>
</element>
<command name="Surface">
<input a0="(r * cos(θ))" a1="(r * sin(θ))" a2="(a * r^(2))" a3="θ" a4="0" a5="(2 * π)" a6="r" a7="0" a8="5"/>
<output a0="b"/>
</command>
<element type="surfacecartesian3d" label="b">
<show object="true" label="false" ev="5"/>
<objColor r="0" g="168" b="213" alpha="0.6499999761581421"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="1" type="0" typeHidden="1"/>
</element>
<element type="numeric" label="LightL">
<value val="50"/>
<show object="false" label="false" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="1"/>
<labelOffset x="-38" y="2"/>
<labelMode val="1"/>
<slider min="3" max="50" absoluteScreenLocation="true" width="100" x="191" y="331" fixed="false" horizontal="true" showAlgebra="true"/>
<lineStyle thickness="10" type="0" typeHidden="1"/>
<animation speed="1" type="0" playing="false"/>
</element>
<element type="numeric" label="t">
<value val="0"/>
<show object="true" label="true" ev="3"/>
<condition showObject="c"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="1"/>
<labelOffset x="-11" y="2"/>
<labelMode val="1"/>
<slider min="0" max="1" absoluteScreenLocation="true" width="100" x="185" y="374" fixed="false" horizontal="true" showAlgebra="true"/>
<lineStyle thickness="10" type="0" typeHidden="1"/>
<animation step="0.005" speed="1" type="3" playing="false"/>
</element>
<command name="Sequence">
<input a0="IterationList[{Element[Z, 2], If[Distance[Mirror[Element[Z, 1], Line[Element[Z, 2], (0, 0, z(Element[Z, 2]) + 1 / ((2 * a)))]], Line[Element[Z, 2], zAxis]] > 0, Intersect[Ray[Element[Z, 2], Mirror[Element[Z, 1], Line[Element[Z, 2], (0, 0, z(Element[Z, 2]) + 1 / ((2 * a)))]]], f], Element[Z, 2] + (0, 0, LightL)]}, Z, {{LightDP(k), Intersect[Ray[LightDP(k), LightDP(k) + arrow], f]}}, refN - 1]" a1="k" a2="1" a3="DPn"/>
<output a0="LightRefPALL"/>
</command>
<element type="list" label="LightRefPALL">
<show object="false" label="false" ev="5"/>
<objColor r="160" g="160" b="160" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="3"/>
<angleStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Vector[Element[Element[LightRefPALL(q), 1], 1], Element[Element[LightRefPALL(q), 1], 2]]" a1="q" a2="1" a3="DPn"/>
<output a0="LightgoALL1"/>
</command>
<element type="list" label="LightgoALL1">
<show object="false" label="false" ev="5"/>
<condition showObject="¬c"/>
<objColor r="255" g="255" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="4" type="0" typeHidden="1" opacity="216"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Vector[Element[Element[LightRefPALL(q), 2], 1], Element[Element[LightRefPALL(q), 2], 2]]" a1="q" a2="1" a3="DPn"/>
<output a0="LightgoALL2"/>
</command>
<element type="list" label="LightgoALL2">
<show object="false" label="false" ev="5"/>
<condition showObject="¬c"/>
<objColor r="191" g="255" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="3" type="0" typeHidden="1" opacity="178"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Vector[Element[Element[LightRefPALL(q), 3], 1], Element[Element[LightRefPALL(q), 3], 2]]" a1="q" a2="1" a3="DPn"/>
<output a0="LightgoALL3"/>
</command>
<element type="list" label="LightgoALL3">
<show object="false" label="true" ev="5"/>
<condition showObject="¬c"/>
<objColor r="0" g="255" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="2" type="0" typeHidden="1" opacity="140"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Vector[Element[Element[LightRefPALL(q), 4], 1], Element[Element[LightRefPALL(q), 4], 2]]" a1="q" a2="1" a3="DPn"/>
<output a0="LightgoALL4"/>
</command>
<element type="list" label="LightgoALL4">
<show object="true" label="false" ev="5"/>
<condition showObject="¬c"/>
<objColor r="51" g="255" b="204" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="1" type="0" typeHidden="1" opacity="102"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Vector[Element[Element[LightRefPALL(k), 1], 1], Element[Element[LightRefPALL(k), 1], 1] + ((Min[Max[t, 0], Length[LightgoALL1(k)] / LightL] * LightL) * LightgoALL1(k) / Length[LightgoALL1(k)])]" a1="k" a2="1" a3="DPn"/>
<output a0="LightgotALL1"/>
</command>
<element type="list" label="LightgotALL1">
<show object="true" label="false" ev="5"/>
<condition showObject="c"/>
<objColor r="255" g="255" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="4" type="0" typeHidden="1" opacity="216"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Vector[Element[Element[LightRefPALL(k), 2], 1], Element[Element[LightRefPALL(k), 2], 1] + ((Min[Max[t - Length[LightgoALL1(k)] / LightL, 0], Length[LightgoALL2(k)] / LightL] * LightL) * LightgoALL2(k) / Length[LightgoALL2(k)])]" a1="k" a2="1" a3="DPn"/>
<output a0="LightgotALL2"/>
</command>
<element type="list" label="LightgotALL2">
<show object="true" label="false" ev="5"/>
<condition showObject="c"/>
<objColor r="191" g="255" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="3" type="15" typeHidden="1" opacity="178"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Vector[Element[Element[LightRefPALL(k), 3], 1], Element[Element[LightRefPALL(k), 3], 1] + ((Min[Max[t - (Length[LightgoALL1(k)] + Length[LightgoALL2(k)]) / LightL, 0], Length[LightgoALL3(k)] / LightL] * LightL) * LightgoALL3(k) / Length[LightgoALL3(k)])]" a1="k" a2="1" a3="DPn"/>
<output a0="LightgotALL3"/>
</command>
<element type="list" label="LightgotALL3">
<show object="true" label="false" ev="5"/>
<condition showObject="c"/>
<objColor r="0" g="255" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="2" type="30" typeHidden="1" opacity="140"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Vector[Element[Element[LightRefPALL(k), 4], 1], Element[Element[LightRefPALL(k), 4], 1] + ((Min[Max[t - (Length[LightgoALL1(k)] + Length[LightgoALL2(k)] + Length[LightgoALL3(k)]) / LightL, 0], Length[LightgoALL4(k)] / LightL] * LightL) * LightgoALL4(k) / Length[LightgoALL4(k)])]" a1="k" a2="1" a3="DPn"/>
<output a0="LightgotALL4"/>
</command>
<element type="list" label="LightgotALL4">
<show object="true" label="false" ev="5"/>
<condition showObject="c"/>
<objColor r="51" g="255" b="204" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="1" type="10" typeHidden="1" opacity="102"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<expression label="text1" exp=""光源數量:" + (LaTeX[DPn]) + """ />
<element type="text" label="text1">
<show object="true" label="false" ev="43"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<isLaTeX val="true"/>
<font serif="true" sizeM="0.7" size="-8" style="0"/>
<absoluteScreenLocation x="156" y="278"/>
</element>
<expression label="text2" exp=""反射次數:" + (LaTeX[refN - 1]) + """ />
<element type="text" label="text2">
<show object="true" label="false" ev="43"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<isLaTeX val="true"/>
<font serif="true" sizeM="0.7" size="-8" style="0"/>
<absoluteScreenLocation x="9" y="333"/>
</element>
<expression label="text3" exp=""光線路徑總長:" + (LaTeX[LightL]) + """ />
<element type="text" label="text3">
<show object="false" label="false" ev="43"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<isLaTeX val="true"/>
<font serif="true" sizeM="0.7" size="-8" style="0"/>
<absoluteScreenLocation x="171" y="296"/>
</element>
<expression label="text4" exp=""光源面半徑:" + (LaTeX[LightDR]) + """ />
<element type="text" label="text4">
<show object="true" label="false" ev="43"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<isLaTeX val="true"/>
<font serif="true" sizeM="0.7" size="-8" style="0"/>
<absoluteScreenLocation x="2" y="280"/>
</element>
<element type="boolean" label="c">
<value val="true"/>
<show object="true" label="true" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="1"/>
<labelOffset x="11" y="399"/>
<labelMode val="3"/>
<checkbox fixed="true"/>
<ggbscript onUpdate="StartAnimation[t,false]
SetValue[t,0]
SetValue[ani,true]"/>
<caption val="動畫顯示"/>
</element>
<expression label="text5" exp=""調整向量(方向):\\
起點:直接拖移藍點\\
終點:P(調整下列數值)""/>
<element type="text" label="text5">
<show object="true" label="true" ev="43"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<isLaTeX val="true"/>
<font serif="true" sizeM="0.7" size="-8" style="0"/>
<absoluteScreenLocation x="5" y="69"/>
</element>
<element type="button" label="button1">
<show object="true" label="true" ev="3"/>
<condition showObject="c"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelOffset x="156" y="400"/>
<labelMode val="0"/>
<fixed val="true"/>
<auxiliary val="true"/>
<ggbscript val="If(t==1,SetValue[ani,true])
If(t==1,SetValue[t,0])
If(ani,StartAnimation[t,true],StartAnimation[t,false])
If(ani,SetValue[ani,false],SetValue[ani,true])"/>
<font serif="false" sizeM="2" size="24" style="0"/>
<caption val="動畫開始/暫停"/>
</element>
<element type="boolean" label="ani">
<value val="true"/>
<show object="false" label="true" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelOffset x="198" y="469"/>
<labelMode val="0"/>
<checkbox fixed="true"/>
<caption val="動畫"/>
</element>
<element type="button" label="button2">
<show object="true" label="true" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="1"/>
<labelOffset x="140" y="222"/>
<labelMode val="0"/>
<fixed val="true"/>
<auxiliary val="true"/>
<ggbscript val="SetValue[LightDC,P+(0,0,2)]"/>
<font serif="false" sizeM="1.4" size="10" style="1"/>
<caption val="光源平行中心軸"/>
</element>
<command name="Sequence">
<input a0="Vector[Element[Element[LightRefPALL(q), 5], 1], Element[Element[LightRefPALL(q), 5], 2]]" a1="q" a2="1" a3="DPn"/>
<output a0="LightgoALL5"/>
</command>
<element type="list" label="LightgoALL5">
<show object="true" label="false" ev="5"/>
<condition showObject="¬c"/>
<objColor r="0" g="255" b="255" alpha="0"/>
<layer val="1"/>
<labelMode val="0"/>
<lineStyle thickness="1" type="0" typeHidden="1" opacity="63"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<command name="Sequence">
<input a0="Vector[Element[Element[LightRefPALL(k), 5], 1], Element[Element[LightRefPALL(k), 5], 1] + ((Min[Max[t - (Length[LightgoALL1(k)] + Length[LightgoALL2(k)] + Length[LightgoALL3(k)] + Length[LightgoALL4(k)]) / LightL, 0], Length[LightgoALL5(k)] / LightL] * LightL) * LightgoALL5(k) / Length[LightgoALL5(k)])]" a1="k" a2="1" a3="DPn"/>
<output a0="LightgotALL5"/>
</command>
<element type="list" label="LightgotALL5">
<show object="true" label="false" ev="5"/>
<condition showObject="c"/>
<objColor r="0" g="255" b="255" alpha="0"/>
<layer val="1"/>
<labelMode val="0"/>
<lineStyle thickness="1" type="20" typeHidden="1" opacity="63"/>
<pointSize val="5"/>
<angleStyle val="0"/>
</element>
<expression label="text6" exp=""z=" + (LaTeX[a]) + "(x^2+y^2)"" />
<element type="text" label="text6">
<show object="true" label="false" ev="43"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<isLaTeX val="true"/>
<font serif="true" sizeM="0.5" size="-12" style="1"/>
<absoluteScreenLocation x="5" y="6"/>
</element>
<element type="boolean" label="d">
<value val="true"/>
<show object="true" label="true" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelOffset x="-2" y="30"/>
<labelMode val="0"/>
<checkbox fixed="true"/>
<caption val="顯示完整曲面"/>
</element>
</construction>
</geogebra>