弧、圆心角与圆周角的关系演示
2015-03-12 02:04
本GeoGebra范例动态演示了圆中弧、圆心角与圆周角之间的几何关系。通过交互式构造，用户可以观察同弧所对的圆心角与圆周角的大小比例，以及不同弧长对角度的影响。范例涵盖了圆的交点、线段、角度测量及动态坐标等构造，帮助直观理解圆的基本定理与几何性质，适合中学平面几何教学与探索。
<?xml version="1.0" encoding="utf-8"?>
<geogebra format="5.0" version="5.0.306.0" id="cb063f75-8c0d-44d3-826a-41ec347201d5" xsi:noNamespaceSchemaLocation="http://www.geogebra.org/ggb.xsd" xmlns="" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" >
<gui>
<window width="960" height="660" />
<perspectives>
</perspectives>
<labelingStyle val="3"/>
<font size="24"/>
</gui>
<euclidianView>
<viewNumber viewNo="1"/>
<size width="958" height="658"/>
<coordSystem xZero="600.5" yZero="381.96436686791753" scale="109.91091716979331" yscale="109.91091716979368"/>
<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="1" grid="10"/>
<axis id="0" show="false" label="" unitLabel="" tickStyle="1" showNumbers="true"/>
<axis id="1" show="false" label="" unitLabel="" tickStyle="1" showNumbers="true"/>
<grid distX="0.2" distY="0.2" distTheta="0.5235987755982988"/>
</euclidianView>
<algebraView>
<auxiliary show="true"/>
</algebraView>
<kernel>
<continuous val="false"/>
<usePathAndRegionParameters val="true"/>
<decimals val="1"/>
<angleUnit val="degree"/>
<algebraStyle val="0" spreadsheet="0"/>
<coordStyle val="0"/>
</kernel>
<scripting blocked="false" disabled="false"/>
<construction title="" author="" date="">
<expression label ="Q1" exp="(0, 0)" type="point"/>
<element type="point" label="Q1">
<show object="false" label="true"/>
<objColor r="0" g="0" b="255" alpha="0"/>
<layer val="8"/>
<labelMode val="0"/>
<animation step="1" speed="1" type="1" playing="false"/>
<coords x="0" y="0" z="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<expression label ="listN" exp="{9, 10, 12, 15, 18, 20, 24, 30, 36}"/>
<element type="list" label="listN">
<show object="true" label="true" ev="8"/>
<objColor r="0" g="0" b="0" alpha="0.1"/>
<bgColor r="255" g="255" b="255" alpha="255"/>
<layer val="9"/>
<labelOffset x="434" y="7"/>
<labelMode val="3"/>
<animation step="1" speed="1" type="0" playing="false"/>
<ggbscript onUpdate="SetValue[P1,(0,0)] SetValue[Q1,(0,0)] SetValue[A,ClosestPoint[list1,(r*cos(300°),r*sin(300°))]] SetValue[B,ClosestPoint[list1,(r*cos(0°),r*sin(0°))]] SetValue[C,ClosestPoint[list1,(r*cos(180°),r*sin(180°))]] SetValue[D,ClosestPoint[list1,(r*cos(240°),r*sin(240°))]]"/>
<lineStyle thickness="2" type="0" typeHidden="1"/>
<ggbscript onUpdate="SetValue[P1,(0,0)] SetValue[Q1,(0,0)] SetValue[A,ClosestPoint[list1,(r*cos(300°),r*sin(300°))]] SetValue[B,ClosestPoint[list1,(r*cos(0°),r*sin(0°))]] SetValue[C,ClosestPoint[list1,(r*cos(180°),r*sin(180°))]] SetValue[D,ClosestPoint[list1,(r*cos(240°),r*sin(240°))]]"/>
<comboBox val="true"/>
<pointSize val="3"/>
<pointStyle val="-1"/>
<caption val="Divide circumference into"/>
</element>
<command name="Intersect">
<input a0="xAxis" a1="yAxis"/>
<output a0="O"/>
</command>
<element type="point" label="O">
<show object="false" label="true" ev="4"/>
<condition showObject="¬(O ≟ P ∨ showArc2 ∧ O ≟ Q)"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="2"/>
<labelOffset x="-1" y="33"/>
<labelMode val="0"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<coords x="0" y="0" z="1"/>
<pointSize val="4"/>
<pointStyle val="1"/>
</element>
<command name="Point">
<input a0="xAxis"/>
<output a0="R"/>
</command>
<element type="point" label="R">
<show object="false" label="true" ev="4"/>
<objColor r="160" g="160" b="160" alpha="0"/>
<layer val="2"/>
<labelOffset x="5" y="16"/>
<labelMode val="0"/>
<animation step="0.1" speed="1" type="1" playing="false"/>
<coords x="2" y="0" z="1"/>
<pointSize val="4"/>
<pointStyle val="0"/>
</element>
<command name="Circle">
<input a0="O" a1="R"/>
<output a0="c"/>
</command>
<element type="conic" label="c">
<show object="true" label="false" ev="4"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="3" type="0" typeHidden="1"/>
<eigenvectors x0="1" y0="0" z0="1.0" x1="0" y1="1" z1="1.0"/>
<matrix A0="1" A1="1" A2="-4" A3="0" A4="0" A5="0"/>
<eqnStyle style="specific"/>
</element>
<expression label="r" exp="x(R)" />
<element type="numeric" label="r">
<value val="2"/>
<objColor r="0" g="0" b="0" alpha="0.1"/>
<selectionAllowed val="false"/>
</element>
<expression label="magnet" exp="r / 20" />
<element type="numeric" label="magnet">
<value val="0.1"/>
<symbolic val="true" />
<objColor r="0" g="0" b="0" alpha="0.1"/>
</element>
<command name="SelectedElement">
<input a0="listN"/>
<output a0="n"/>
</command>
<element type="numeric" label="n">
<value val="9"/>
<objColor r="0" g="0" b="0" alpha="0.1"/>
<selectionAllowed val="false"/>
</element>
<command name="Sequence">
<input a0="Point[c, i]" a1="i" a2="0" a3="1" a4="1 / n"/>
<output a0="list1"/>
</command>
<element type="list" label="list1">
<show object="true" label="false" ev="4"/>
<objColor r="192" g="192" b="192" alpha="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="0"/>
</element>
<command name="ClosestPoint">
<input a0="Append[(0, 0), list1]" a1="Q1"/>
<output a0="Q2"/>
</command>
<element type="point" label="Q2">
<show object="false" label="true" ev="4"/>
<objColor r="125" g="125" b="255" alpha="0"/>
<layer val="8"/>
<labelMode val="0"/>
<coords x="0" y="0" z="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<expression label ="P1" exp="(0, 0)" type="point"/>
<element type="point" label="P1">
<show object="false" label="true" ev="4"/>
<objColor r="0" g="0" b="255" alpha="0"/>
<layer val="8"/>
<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="DynamicCoordinates">
<input a0="Q1" a1="If[Distance[Q2, Q1] < magnet, x(Q2), x(Q1)]" a2="If[Distance[Q2, Q1] < magnet, y(Q2), y(Q1)]"/>
<output a0="Q"/>
</command>
<element type="point" label="Q">
<show object="false" label="true" ev="4"/>
<condition showObject="showArc2"/>
<objColor r="0" g="0" b="255" alpha="0" dynamicr="If[Q ≟ (0, 0), 0, If[onArcQ, 0.4, 0]]" dynamicg="If[Q ≟ (0, 0), 0, If[onArcQ, 0.4, 0]]" dynamicb="If[Q ≟ (0, 0), 0, If[onArcQ, 0.4, 1]]" colorSpace="0"/>
<layer val="5"/>
<labelOffset x="-28" y="-1"/>
<labelMode val="0"/>
<animation step="1" speed="1" type="1" playing="false"/>
<coords x="0" y="0" z="1"/>
<pointSize val="4"/>
<pointStyle val="0"/>
</element>
<command name="ClosestPoint">
<input a0="Append[(0, 0), list1]" a1="P1"/>
<output a0="P2"/>
</command>
<element type="point" label="P2">
<show object="false" label="true" ev="4"/>
<objColor r="125" g="125" b="255" alpha="0"/>
<layer val="8"/>
<labelMode val="0"/>
<coords x="0" y="0" z="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<command name="Defined">
<input a0="IndexOf[Q, list1]"/>
<output a0="onArcQ"/>
</command>
<element type="boolean" label="onArcQ">
<value val="false"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="255" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<checkbox fixed="true"/>
</element>
<command name="Point">
<input a0="list1"/>
<output a0="C"/>
</command>
<element type="point" label="C">
<show object="true" label="true" ev="4"/>
<condition showObject="showArc2"/>
<objColor r="0" g="0" b="255" alpha="0"/>
<layer val="3"/>
<labelOffset x="-27" y="17"/>
<labelMode val="0"/>
<animation step="1" speed="1" type="1" playing="false"/>
<ggbscript onUpdate="SetValue[A,If[connectABCD,C,A]]"/>
<coords x="-2" y="-2.4492935982947064e-16" z="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<command name="DynamicCoordinates">
<input a0="P1" a1="If[Distance[P2, P1] < magnet, x(P2), x(P1)]" a2="If[Distance[P2, P1] < magnet, y(P2), y(P1)]"/>
<output a0="P"/>
</command>
<element type="point" label="P">
<show object="true" label="true" ev="4"/>
<objColor r="255" g="0" b="0" alpha="0" dynamicr="If[P ≟ (0, 0), 0, If[onArcP, 0.4, 1]]" dynamicg="If[P ≟ (0, 0), 0, If[onArcP, 0.4, 0]]" dynamicb="If[P ≟ (0, 0), 0, If[onArcP, 0.4, 0]]" colorSpace="0"/>
<layer val="3"/>
<labelOffset x="-14" y="-2"/>
<labelMode val="0"/>
<animation step="1" speed="1" type="1" playing="false"/>
<coords x="0" y="0" z="1"/>
<pointSize val="4"/>
<pointStyle val="0"/>
</element>
<command name="Point">
<input a0="list1"/>
<output a0="D"/>
</command>
<element type="point" label="D">
<show object="true" label="true" ev="4"/>
<condition showObject="showArc2"/>
<objColor r="0" g="0" b="255" alpha="0"/>
<layer val="3"/>
<labelOffset x="-24" y="27"/>
<labelMode val="0"/>
<animation step="1" speed="1" type="1" playing="false"/>
<ggbscript onUpdate="SetValue[B,If[connectABCD,D,B]]"/>
<coords x="-1.5320888862379558" y="-1.285575219373079" z="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<expression label="QonCD" exp="Intersect[CircleArc[O, C, D], Segment[Q, O]] ≟ Q" />
<element type="boolean" label="QonCD">
<value val="false"/>
<show object="false" label="true"/>
<objColor r="204" g="153" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<checkbox fixed="true"/>
</element>
<command name="Defined">
<input a0="IndexOf[P, list1]"/>
<output a0="onArcP"/>
</command>
<element type="boolean" label="onArcP">
<value val="false"/>
<show object="false" label="true" ev="3"/>
<objColor r="255" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<checkbox fixed="true"/>
</element>
<command name="Point">
<input a0="list1"/>
<output a0="A"/>
</command>
<element type="point" label="A">
<show object="true" label="true" ev="4"/>
<objColor r="255" g="0" b="0" alpha="0"/>
<layer val="2"/>
<labelOffset x="0" y="29"/>
<labelMode val="0"/>
<animation step="0.1" speed="1" type="1" playing="false"/>
<coords x="1.8793852415718166" y="-0.6840402866513375" z="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<command name="Point">
<input a0="list1"/>
<output a0="B"/>
</command>
<element type="point" label="B">
<show object="true" label="true" ev="4"/>
<objColor r="255" g="0" b="0" alpha="0"/>
<layer val="2"/>
<labelOffset x="3" y="22"/>
<labelMode val="0"/>
<animation step="0.1" speed="1" type="1" playing="false"/>
<coords x="1.8793852415718166" y="0.6840402866513375" z="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
</element>
<expression label="PonAB" exp="Intersect[CircleArc[O, A, B], Segment[P, O]] ≟ P" />
<element type="boolean" label="PonAB">
<value val="false"/>
<show object="true" label="true"/>
<objColor r="204" g="153" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<checkbox fixed="true"/>
</element>
<command name="Segment">
<input a0="A" a1="P"/>
<output a0="a"/>
</command>
<element type="segment" label="a">
<show object="true" label="false" ev="4"/>
<objColor r="255" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<coords x="-0.6840402866513375" y="-1.8793852415718166" z="0"/>
<lineStyle thickness="3" type="0" typeHidden="1"/>
<outlyingIntersections val="false"/>
<keepTypeOnTransform val="true"/>
</element>
<command name="Segment">
<input a0="B" a1="P"/>
<output a0="b"/>
</command>
<element type="segment" label="b">
<show object="true" label="false" ev="4"/>
<objColor r="255" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<coords x="0.6840402866513375" y="-1.8793852415718166" z="0"/>
<lineStyle thickness="3" type="0" typeHidden="1"/>
<outlyingIntersections val="false"/>
<keepTypeOnTransform val="true"/>
</element>
<command name="If">
<input a0="PonAB" a1="CircleArc[O, B, A]" a2="CircleArc[O, A, B]"/>
<output a0="arc1"/>
</command>
<element type="conicpart" label="arc1">
<show object="true" label="false" ev="4"/>
<condition showObject="Defined[α]"/>
<objColor r="255" g="0" b="0" alpha="0"/>
<layer val="1"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="11" type="0" typeHidden="1"/>
<eigenvectors x0="1" y0="0" z0="1.0" x1="0" y1="1" z1="1.0"/>
<matrix A0="1" A1="1" A2="-3.999999999999999" A3="0" A4="0" A5="0"/>
<eqnStyle style="implicit"/>
<outlyingIntersections val="false"/>
<keepTypeOnTransform val="true"/>
</element>
<command name="If">
<input a0="onArcP" a1="If[Angle[A, P, B] < 180°, Angle[A, P, B], Angle[B, P, A]]" a2="Angle[A, P, B]"/>
<output a0="α"/>
</command>
<element type="angle" label="α">
<angleStyle val="0"/>
<value val="0.698131700797732"/>
<show object="true" label="false" ev="4"/>
<objColor r="255" g="0" b="0" alpha="0.5"/>
<layer val="0"/>
<labelOffset x="-59" y="18"/>
<labelMode val="2"/>
<lineStyle thickness="2" type="0" typeHidden="2"/>
<arcSize val="50"/>
<emphasizeRightAngle val="false"/>
<ggbscript val="SetValue[showAngle1,!showAngle1]"/>
</element>
<command name="If">
<input a0="QonCD" a1="CircleArc[O, D, C]" a2="CircleArc[O, C, D]"/>
<output a0="arc2"/>
</command>
<element type="conicpart" label="arc2">
<show object="true" label="false" ev="4"/>
<condition showObject="showArc2 ∧ Defined[β]"/>
<objColor r="0" g="0" b="255" alpha="0"/>
<layer val="3"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="6" type="0" typeHidden="1"/>
<eigenvectors x0="1" y0="0" z0="1.0" x1="0" y1="1" z1="1.0"/>
<matrix A0="1" A1="1" A2="-4" A3="0" A4="0" A5="0"/>
<eqnStyle style="implicit"/>
<outlyingIntersections val="false"/>
<keepTypeOnTransform val="true"/>
</element>
<command name="Segment">
<input a0="Q" a1="C"/>
<output a0="e"/>
</command>
<element type="segment" label="e">
<show object="true" label="false" ev="4"/>
<condition showObject="showArc2"/>
<objColor r="0" g="0" b="255" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<coords x="2.4492935982947064e-16" y="-2" z="0"/>
<lineStyle thickness="3" type="0" typeHidden="1"/>
<outlyingIntersections val="false"/>
<keepTypeOnTransform val="true"/>
</element>
<command name="Segment">
<input a0="Q" a1="D"/>
<output a0="f"/>
</command>
<element type="segment" label="f">
<show object="true" label="false" ev="4"/>
<condition showObject="showArc2"/>
<objColor r="0" g="0" b="255" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<coords x="1.285575219373079" y="-1.5320888862379558" z="0"/>
<lineStyle thickness="3" type="0" typeHidden="1"/>
<outlyingIntersections val="false"/>
<keepTypeOnTransform val="true"/>
</element>
<element type="boolean" label="showArc2">
<value val="false"/>
<show object="true" label="true"/>
<objColor r="0" g="0" b="255" alpha="0"/>
<layer val="0"/>
<labelOffset x="5" y="49"/>
<labelMode val="3"/>
<checkbox fixed="true"/>
<caption val="Show arc CD"/>
</element>
<element type="boolean" label="showPartition">
<value val="false"/>
<show object="true" label="true"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelOffset x="430" y="50"/>
<labelMode val="3"/>
<checkbox fixed="true"/>
<caption val="Show sectors"/>
</element>
<element type="boolean" label="showAngle1">
<value val="false"/>
<show object="true" label="true"/>
<objColor r="255" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelOffset x="5" y="5"/>
<labelMode val="3"/>
<checkbox fixed="true"/>
<caption val="Show value of angle APB"/>
</element>
<element type="boolean" label="showAngle2">
<value val="false"/>
<show object="true" label="true"/>
<condition showObject="showArc2"/>
<objColor r="0" g="0" b="255" alpha="0"/>
<layer val="0"/>
<labelOffset x="5" y="93"/>
<labelMode val="3"/>
<checkbox fixed="true"/>
<caption val="Show value of angle CQD"/>
</element>
<command name="Sequence">
<input a0="Segment[O, Element[list1, i]]" a1="i" a2="1" a3="n"/>
<output a0="list2"/>
</command>
<element type="list" label="list2">
<show object="false" label="false" ev="8"/>
<condition showObject="showPartition"/>
<objColor r="128" g="128" b="128" alpha="0"/>
<bgColor r="255" g="255" b="255" alpha="255"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<lineStyle thickness="2" type="10" typeHidden="1"/>
<pointSize val="3"/>
<pointStyle val="-1"/>
</element>
<command name="Segment">
<input a0="B" a1="A"/>
<output a0="dia"/>
</command>
<element type="segment" label="dia">
<show object="true" label="true" ev="4"/>
<condition showObject="Angle[A, O, B] ≟ 180°"/>
<objColor r="255" g="0" b="0" alpha="0"/>
<layer val="1"/>
<labelOffset x="-44" y="10"/>
<labelMode val="3"/>
<selectionAllowed val="false"/>
<coords x="1.368080573302675" y="0" z="-2.5711504387461575"/>
<lineStyle thickness="6" type="0" typeHidden="1"/>
<outlyingIntersections val="false"/>
<keepTypeOnTransform val="true"/>
<caption val="直徑"/>
</element>
<command name="If">
<input a0="onArcQ" a1="If[Angle[C, Q, D] < 180°, Angle[C, Q, D], Angle[D, Q, C]]" a2="Angle[C, Q, D]"/>
<output a0="β"/>
</command>
<element type="angle" label="β">
<angleStyle val="0"/>
<value val="0.6981317007977319"/>
<show object="true" label="false" ev="4"/>
<condition showObject="showArc2"/>
<objColor r="0" g="0" b="255" alpha="0.5"/>
<layer val="0"/>
<labelOffset x="-39" y="70"/>
<labelMode val="2"/>
<lineStyle thickness="2" type="0" typeHidden="2"/>
<arcSize val="50"/>
<emphasizeRightAngle val="false"/>
<ggbscript val="SetValue[showAngle2,!showAngle2]"/>
</element>
<element type="boolean" label="connectABCD">
<value val="false"/>
<show object="true" label="true"/>
<condition showObject="showArc2"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelOffset x="5" y="599"/>
<labelMode val="3"/>
<checkbox fixed="true"/>
<ggbscript onUpdate="ShowLabel[C,!connectABCD] ShowLabel[D,!connectABCD] SetValue[A,If[connectABCD,C,A]] SetValue[B,If[connectABCD,D,B]]"/>
<caption val="Connect A and C, B and D"/>
</element>
<expression label="textArc1" exp=""\frac{" + (LaTeX[(arc1 / (((2 * π) * r)) * n)]) + "}{" + (LaTeX[n]) + "}"" />
<element type="text" label="textArc1">
<show object="true" label="true" ev="8"/>
<objColor r="255" g="0" b="0" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<isLaTeX val="true"/>
<font serif="true" sizeM="1.4" size="10" style="0"/>
<startPoint exp="L1"/>
</element>
<expression label="textArc2" exp=""\frac{" + (LaTeX[(arc2 / (((2 * π) * r)) * n)]) + " }{" + (LaTeX[n]) + "}"" />
<element type="text" label="textArc2">
<show object="true" label="true" ev="8"/>
<condition showObject="showArc2"/>
<objColor r="0" g="0" b="255" alpha="0"/>
<layer val="0"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<isLaTeX val="true"/>
<font serif="true" sizeM="1.4" size="10" style="0"/>
<startPoint exp="L2"/>
</element>
<command name="Dilate">
<input a0="Intersect[arc1, AngularBisector[B, O, A]]" a1="1.2"/>
<output a0="L1"/>
</command>
<element type="point" label="L1">
<show object="false" label="true" ev="4"/>
<objColor r="160" g="160" b="160" alpha="0"/>
<layer val="8"/>
<labelOffset x="-51" y="30"/>
<labelMode val="0"/>
<coords x="2.3999999999999995" y="0" z="1"/>
<pointSize val="9"/>
<pointStyle val="1"/>
</element>
<command name="Dilate">
<input a0="Intersect[arc2, AngularBisector[D, O, C]]" a1="1.2"/>
<output a0="L2"/>
</command>
<element type="point" label="L2">
<show object="false" label="true" ev="4"/>
<objColor r="160" g="160" b="160" alpha="0"/>
<layer val="8"/>
<labelMode val="0"/>
<coords x="-2.25526228988618" y="-0.8208483439816053" z="1"/>
<pointSize val="9"/>
<pointStyle val="1"/>
</element>
<expression label="Lq" exp="Q + (0.8 * UnitVector[Vector[Q, Intersect[arc2, AngularBisector[D, O, C]]]])" type="point" />
<element type="point" label="Lq">
<show object="false" label="true"/>
<objColor r="160" g="160" b="160" alpha="0"/>
<layer val="8"/>
<labelMode val="0"/>
<coords x="-0.7517540966287267" y="-0.2736161146605351" z="1"/>
<pointSize val="9"/>
<pointStyle val="1"/>
</element>
<expression label="Lp" exp="P + (0.8 * UnitVector[Vector[P, Intersect[arc1, AngularBisector[B, O, A]]]])" type="point" />
<element type="point" label="Lp">
<show object="false" label="true" ev="4"/>
<objColor r="160" g="160" b="160" alpha="0"/>
<layer val="8"/>
<labelMode val="0"/>
<coords x="0.8" y="0" z="1"/>
<pointSize val="9"/>
<pointStyle val="1"/>
</element>
<expression label="textP" exp=""" + (If[Defined[α], Text[α], ""]) + """ />
<element type="text" label="textP">
<show object="true" label="true" ev="8"/>
<condition showObject="showAngle1"/>
<objColor r="255" g="0" b="0" alpha="0"/>
<layer val="8"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<startPoint exp="Lp"/>
</element>
<expression label="textQ" exp=""" + (If[Defined[β], Text[β], ""]) + """ />
<element type="text" label="textQ">
<show object="true" label="true" ev="8"/>
<condition showObject="showArc2 ∧ showAngle2"/>
<objColor r="0" g="0" b="255" alpha="0"/>
<layer val="8"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<startPoint exp="Lq"/>
</element>
<element type="button" label="button0">
<show object="true" label="true"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="8"/>
<labelOffset x="869" y="601"/>
<labelMode val="3"/>
<animation step="1" speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
<ggbscript val="SetValue[lang,If[lang==1,2,1]] RunClickScript[buttonLang]"/>
<font serif="false" sizeM="1.4" size="10" style="0"/>
<caption val="中文"/>
</element>
<element type="button" label="buttonLang">
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="8"/>
<labelOffset x="964" y="619"/>
<labelMode val="0"/>
<fixed val="true"/>
<auxiliary val="true"/>
<ggbscript val="SetCaption[button0,If[lang==1,"ENG","中文"]] SetCaption[showAngle1,If[lang==1,"顯示角APB的大小","Show value of angle APB"]] SetCaption[showArc2,If[lang==1,"顯示弧CD","Show arc CD"]] SetCaption[showAngle2,If[lang==1,"顯示角CQD的大小","Show value of angle CQD"]] SetCaption[connectABCD,If[lang==1,"A和C、B和D相接","Connect A and C, B and D"]] SetCaption[showPartition,If[lang==1,"顯示扇形","Show sectors"]] SetCaption[listN,If[lang==1,"將圓周分成 ","Divide circumference into "]] SetCoords[text1, If[lang==1,628,785], 33]"/>
<font serif="false" sizeM="1.4" size="10" style="0"/>
</element>
<element type="numeric" label="lang">
<value val="2"/>
<symbolic val="true" />
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.1"/>
<layer val="8"/>
<labelMode val="1"/>
<animation step="1" speed="1" type="0" playing="false"/>
</element>
<expression label="text1" exp=""" + (If[lang ≟ 1, "等份", "equal portions"]) + """ />
<element type="text" label="text1">
<show object="true" label="true" ev="8"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="2"/>
<labelMode val="0"/>
<selectionAllowed val="false"/>
<absoluteScreenLocation x="785" y="33"/>
</element>
</construction>
</geogebra>