\text{Pohybujte bodmi }C,D.

\text{Deliace pomery } (ABC),(ABD) \text{ a dvojpomer } (ABCD).

b = 0.6 (slider from -2 to 4, step 0.1)
pos = 2 (slider from -10 to 10, step 0.1)
C: (pos + 1, 0)
B: (1, 0)
v = Vector(B, C)
A: (0, 0)
u = Vector(A, C)
z1: u / v
M: (pos + 1, x(z1))
D_{1} = Intersect(xAxis, yAxis)
del_D = SurdText(x(z1))
text2: "(ABC)=" + (LaTeX[del_D]) + ""
GMB3 = Locus(M, pos)
f = OrthogonalLine(B, xAxis)
w = Vector(C, M)
g: y = 1
D: (b, 0)
u1 = Vector(A, D)
v1 = Vector(B, D)
z2: u1 / v1
del_C = SurdText(x(z2))
Dvoj = SurdText(x(z1) / x(z2))
text5: "(ABCD)=" + (LaTeX[Dvoj]) + ""
text1: "(ABD)=" + (LaTeX[del_C]) + ""
N: (x(D), x(z2))
a = Vector(D, N)
GMB1 = Locus(N, b)