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