A = (2, 3)
λ = -1 (slider from -5 to 5, step 0.1)
a: y - y(A) = λ * (x - x(A))
B = Intersect(a, yAxis)
C = Intersect(a, xAxis)
O = Intersect(xAxis, yAxis)
απόστασηBO = Distance(B, O)
ΚείμενοBO: "\overline{" + (Name[B]) + (Name[O]) + "} \, = \, " + απόστασηBO
απόστασηOC = Distance(O, C)
ΚείμενοOC: "\overline{" + (Name[O]) + (Name[C]) + "} \, = \, " + απόστασηOC