<?xml version="1.0" encoding="utf-8"?>
<CaR>
<Macro Name="Somme" showduplicates="true">
<Parameter name="a">a</Parameter>
<Parameter name="b">b</Parameter>
<Objects>
<Point name="a" n="0" parameter="true" mainparameter="true" x="2.0" y="1.5">Point à 2.0, 1.5</Point>
<Point name="b" n="1" parameter="true" mainparameter="true" x="1.0" y="1.5">Point à 1.0, 1.5</Point>
<Point name="P3" n="2" color="1" showname="true" target="true" x="x(a)+x(b)" actx="3.0" y="y(a)+y(b)" acty="3.0" shape="dcross" fixed="true">Point à &quot;x(a)+x(b)&quot;, &quot;y(a)+y(b)&quot;</Point>
</Objects>
</Macro>
<Macro Name="Produit" showduplicates="true">
<Parameter name="a">a</Parameter>
<Parameter name="b">b</Parameter>
<Objects>
<Point name="a" n="0" mainparameter="true" x="2.0" y="1.5">Point à 2.0, 1.5</Point>
<Point name="b" n="1" mainparameter="true" x="1.0" y="1.5">Point à 1.0, 1.5</Point>
<Point name="P3" n="2" color="1" showname="true" target="true" x="x(a)*x(b)-y(a)*y(b)" actx="-0.25" y="x(a)*y(b)+x(b)*y(a)" acty="4.5" shape="dcross" fixed="true">Point à &quot;x(a)*x(b)-y(a)*y(b)&quot;, &quot;x(a)*y(b)+x(b)*y(a)&quot;</Point>
</Objects>
</Macro>
<Macro Name="Inverse" showduplicates="true">
<Parameter name="P1">P1</Parameter>
<Objects>
<Point name="P1" n="0" x="0.5" y="0.5">Point à 0.5, 0.5</Point>
<Point name="P2" n="1" color="1" target="true" x="x(P1)/((x(P1))^2+(y(P1))^2)" actx="1.0" y="-y(P1)/((x(P1))^2+(y(P1))^2)" acty="-1.0" shape="circle" fixed="true">Point à &quot;x(P1)/((x(P1))^2+(y(P1))^2)&quot;, &quot;-y(P1)/((x(P1))^2+(y(P1))^2)&quot;</Point>
</Objects>
</Macro>
<Macro Name="Produit par un réel (avec dialogue)" showduplicates="true">
<Parameter name="m">m</Parameter>
<Objects>
<Point name="m" n="0" mainparameter="true" x="1.5" y="2.0">Point à 1.5, 2.0</Point>
<Expression name="k" n="1" hidden="true" x="0.0" y="0.0" value="1.5" prompt="Valeur">Expression &quot;1.5&quot; à 0.0, 0.0</Expression>
<Point name="P2" n="2" color="1" showname="true" target="true" x="k*x(m)" actx="2.25" y="k*y(m)" acty="3.0" shape="dcross" fixed="true">Point à &quot;k*x(m)&quot;, &quot;k*y(m)&quot;</Point>
</Objects>
<PromptFor object0="k" prompt0="nombre réel ?"/>
</Macro>
<Macro Name="Coordonnées polaires (degrés)" showduplicates="true">
<Parameter name="O">O</Parameter>
<Parameter name="I">I</Parameter>
<Parameter name="m">m</Parameter>
<Parameter name="p">p</Parameter>
<Objects>
<Point name="O" n="0" mainparameter="true" x="0.0" y="0.0">Point à 0.0, 0.0</Point>
<Point name="I" n="1" mainparameter="true" x="1.0" y="0.0">Point à 1.0, 0.0</Point>
<Point name="m" n="2" mainparameter="true" x="-1.5" y="4.5">Point à -1.5, 4.5</Point>
<Point name="p" n="3" color="1" mainparameter="true" target="true" x="(windoww/(windoww-d(windoww)))*(x(p)-windowcx)+windowcx+d(windowcx)" actx="6.5" y="(windoww/(windoww-d(windoww)))*(y(p)-windowcy)+windowcy+d(windowcy)" acty="5.0" shape="dcross" fixed="true">Point à &quot;(windoww/(windoww-d(windoww)))*(x(p)-windowcx)+windowcx+d(windowcx)&quot;, &quot;(windoww/(windoww-d(windoww)))*(y(p)-windowcy)+windowcy+d(windowcy)&quot;</Point>
<Point name="P5" n="4" color="1" hidden="super" x="x(p)" actx="6.5" y="y(p)+15/pixel" acty="5.15" shape="dcross" fixed="true">Point à &quot;x(p)&quot;, &quot;y(p)+15/pixel&quot;</Point>
<Point name="P6" n="5" color="1" hidden="super" x="2*x(p)-x(P5)" actx="6.5" y="2*y(p)-y(P5)" acty="4.85" shape="dcross" fixed="true">Point à &quot;2*x(p)-x(P5)&quot;, &quot;2*y(p)-y(P5)&quot;</Point>
<Segment name="s1" n="6" color="1" target="true" ctag0="red" cexpr0="1" from="P6" to="P5">Segment de P6 à P5</Segment>
<Expression name="E1" n="7" showvalue="true" ctag0="red" cexpr0="1" x="x(p)+8/pixel" y="y(p)+8/pixel" value="d(O,m)" prompt="Valeur" fixed="true">Expression &quot;d(O,m)&quot; à 6.58, 5.08</Expression>
<Expression name="E2" n="8" showvalue="true" unit="°" ctag0="red" cexpr0="1" x="x(p)+8/pixel" y="y(p)-12/pixel" value="angle180(a(I,O,m))" prompt="Valeur" fixed="true">Expression &quot;angle180(a(I,O,m))&quot; à 6.58, 4.88</Expression>
</Objects>
</Macro>
<Macro Name="Coordonnées polaires (radians)" showduplicates="true">
<Parameter name="O">O</Parameter>
<Parameter name="I">I</Parameter>
<Parameter name="m">m</Parameter>
<Parameter name="p">p</Parameter>
<Objects>
<Point name="O" n="0" mainparameter="true" x="0.0" y="0.0">Point à 0.0, 0.0</Point>
<Point name="I" n="1" mainparameter="true" x="1.0" y="0.0">Point à 1.0, 0.0</Point>
<Point name="m" n="2" mainparameter="true" x="-3.0" y="4.0">Point à -3.0, 4.0</Point>
<Point name="p" n="3" color="1" mainparameter="true" target="true" x="(windoww/(windoww-d(windoww)))*(x(p)-windowcx)+windowcx+d(windowcx)" actx="3.5" y="(windoww/(windoww-d(windoww)))*(y(p)-windowcy)+windowcy+d(windowcy)" acty="2.5" shape="dcross" fixed="true">Point à &quot;(windoww/(windoww-d(windoww)))*(x(p)-windowcx)+windowcx+d(windowcx)&quot;, &quot;(windoww/(windoww-d(windoww)))*(y(p)-windowcy)+windowcy+d(windowcy)&quot;</Point>
<Point name="P5" n="4" color="1" hidden="super" x="x(p)" actx="3.5" y="y(p)+15/pixel" acty="2.65" shape="dcross" fixed="true">Point à &quot;x(p)&quot;, &quot;y(p)+15/pixel&quot;</Point>
<Point name="P6" n="5" color="1" hidden="super" x="2*x(p)-x(P5)" actx="3.5" y="2*y(p)-y(P5)" acty="2.35" shape="dcross" fixed="true">Point à &quot;2*x(p)-x(P5)&quot;, &quot;2*y(p)-y(P5)&quot;</Point>
<Segment name="s1" n="6" color="1" target="true" ctag0="red" cexpr0="1" from="P6" to="P5">Segment de P6 à P5</Segment>
<Expression name="E1" n="7" showvalue="true" ctag0="red" cexpr0="1" x="x(p)+8/pixel" y="y(p)+8/pixel" value="d(O,m)" prompt="Valeur" fixed="true">Expression &quot;d(O,m)&quot; à 3.58, 2.58</Expression>
<Expression name="E2" n="8" showvalue="true" unit=" rd" ctag0="red" cexpr0="1" x="x(p)+8/pixel" y="y(p)-12/pixel" value="pi/180*angle180(a(I,O,m))" prompt="Valeur" fixed="true">Expression &quot;pi/180*angle180(a(I,O,m))&quot; à 3.58, 2.38</Expression>
</Objects>
</Macro>
<Macro Name="pt par coord. (degrés, avec dialogue)" showduplicates="true">
<Parameter name="O">O</Parameter>
<Parameter name="I">I</Parameter>
<Objects>
<Point name="O" n="0" mainparameter="true" x="0.0" y="0.0">Point à 0.0, 0.0</Point>
<Point name="I" n="1" mainparameter="true" x="1.0" y="0.0">Point à 1.0, 0.0</Point>
<Expression name="r" n="2" hidden="true" x="0.0" y="0.0" value="-2.5" prompt="Valeur">Expression &quot;-2.5&quot; à 0.0, 0.0</Expression>
<Expression name="a" n="3" hidden="true" x="0.0" y="0.0" value="-30" prompt="Valeur">Expression &quot;-30&quot; à 0.0, 0.0</Expression>
<Expression name="E3" n="4" color="2" hidden="super" x="0.0" y="0.0" value="a" prompt="Valeur">Expression &quot;&quot; à 0.0, 0.0 </Expression>
<Angle name="a1" n="5" color="3" hidden="super" unit="°" large="true" first="I" root="O" fixed="E3">Angle P1 - P2 de mesure 25.629060000000003 </Angle>
<Circle name="c1" n="6" color="3" hidden="super" large="true" through="I" midpoint="O">Cercle de centre P2 passant par P1 </Circle>
<Intersection name="I1" n="7" color="2" hidden="super" showname="true" large="true" first="a1" second="c1" shape="circle" which="first">Intersection entre a1 et c1 </Intersection>
<Point name="P3" n="8" color="2" target="true" x="r*x(I1)" actx="-2.165063509461096" y="r*y(I1)" acty="1.250000000000001" shape="circle" fixed="true">Point à &quot;r*x(I1)&quot;, &quot;r*y(I1)&quot;</Point>
</Objects>
<PromptFor object0="a" prompt0="angle ?" object1="r" prompt1="r"/>
</Macro>
<Macro Name="pt par coord. (degrés, sans dialogue)" showduplicates="true">
<Parameter name="O">O</Parameter>
<Parameter name="I">I</Parameter>
<Parameter name="a">angle ?</Parameter>
<Parameter name="r">r ?</Parameter>
<Objects>
<Point name="O" n="0" mainparameter="true" x="0.0" y="0.0">Point à 0.0, 0.0</Point>
<Point name="I" n="1" mainparameter="true" x="1.0" y="0.0">Point à 1.0, 0.0</Point>
<Expression name="r" n="2" mainparameter="true" x="0.0" y="0.0" value="-2.5" prompt="Valeur">Expression &quot;-2.5&quot; à 0.0, 0.0</Expression>
<Expression name="a" n="3" mainparameter="true" x="0.0" y="0.0" value="-30" prompt="Valeur">Expression &quot;-30&quot; à 0.0, 0.0</Expression>
<Expression name="E3" n="4" color="2" hidden="super" x="0.0" y="0.0" value="a" prompt="Valeur">Expression &quot;&quot; à 0.0, 0.0 </Expression>
<Angle name="a1" n="5" color="3" hidden="super" unit="°" large="true" first="I" root="O" fixed="E3">Angle P1 - P2 de mesure 25.629060000000003 </Angle>
<Circle name="c1" n="6" color="3" hidden="super" large="true" through="I" midpoint="O">Cercle de centre P2 passant par P1 </Circle>
<Intersection name="I1" n="7" color="2" hidden="super" showname="true" large="true" first="a1" second="c1" shape="circle" which="first">Intersection entre a1 et c1 </Intersection>
<Point name="P3" n="8" color="2" target="true" x="r*x(I1)" actx="-2.165063509461096" y="r*y(I1)" acty="1.250000000000001" shape="circle" fixed="true">Point à &quot;r*x(I1)&quot;, &quot;r*y(I1)&quot;</Point>
</Objects>
</Macro>
<Construction>
<Window x="0.17942271391672082" y="0.4991490806156831" w="2.8284271247462014"/>
<Objects>
<Point name="O" n="0" color="2" type="thick" showname="true" xcoffset="-0.20437956204379581" ycoffset="-0.2481751824817513" keepclose="true" x="0" actx="0.0" y="0" acty="0.0" shape="dot" fixed="true">Point à &quot;0&quot;, &quot;0&quot;</Point>
<Point name="I" n="1" color="2" type="thick" showname="true" xcoffset="-0.003350578393680692" ycoffset="0.2609987478832929" keepclose="true" x="1" actx="1.0" y="0" acty="0.0" shape="dot" fixed="true">Point à &quot;1&quot;, &quot;0&quot;</Point>
<Point name="J" n="2" color="2" type="thick" showname="true" xcoffset="-0.3211678832116789" ycoffset="-0.05109489051094762" keepclose="true" x="0" actx="0.0" y="1" acty="1.0" shape="dot" fixed="true">Point à &quot;0&quot;, &quot;1&quot;</Point>
<Point name="M" alias="M(z)" n="583" color="2" showname="true" xcoffset="0.3047531584580918" ycoffset="0.03619848321184582" keepclose="true" x="0.33248202755160294" y="0.7986391549327553" shape="dcross">Point à 0.33, 0.8</Point>
<Line name="l1" n="5" color="2" from="O" to="I">Droite passant par O et I</Line>
<Line name="l2" n="8" color="2" from="O" to="J">Droite passant par O et J</Line>
</Objects>
</Construction>
</CaR>
