reset

l=\left| AB \right| 

a=\text{abscis van } A

toon P

toon M midden [AB]

\text{Kies } l.\
\text{De staaf } \left [AB  \right ] \text{ glijdt in eerste en tweede kwadrant}\
\text{doordat } A \text{ beweegt langs een horizontale as}\
\text{en } B \text{ langs een verticale as door de waarde van } a \
\text{te veranderen m.b.v. de schuifknop.}\
\text{Het spoor van } P \text{ en/of }M \text{ wordt getekend.}\
\text{Positie van } P \text{ kan worden veranderd door}\
P \text{ te verschuiven op } \left [AB  \right ] .

l = 5 (slider from 0 to 5, step 0.25)
a = 4.4 (slider from (-l) to l, step 0.05)
A: (a, 0)
B: (0, sqrt(l^(2) - a^(2)))
b = Segment(A, B)
C: (0, (-sqrt(l^(2) - a^(2))))
c = Segment(A, C)
O = Intersect(xAxis, yAxis)
h = Line(O, A)
v = Line(O, B)
P = Point(b)
M = Midpoint(B, A)
d = true
e = true