γ = 1 (slider from 0 to 5, step 0.1)
E_1: (-(γ), 0.0)
E_2: (γ, 0.0)
α = 2 (slider from 0 to 10, step 0.1)
t = 0.45 (slider from 0 to 1, step 0.0010)
c = Circle(E_1, t * 2.0 * α)
d = Circle(E_2, (1.0 - t) * 2.0 * α)
Ν, Μ = Intersect(d, c)
απόστασηE1Μ = Distance(E_1, Μ)
ΚείμενοE1Μ: "\overline{" + (Name[E_1]) + (Name[Μ]) + "} \, = \, " + απόστασηE1Μ
απόστασηΝΜ = Distance(Ν, Μ)
ΚείμενοΝΜ: "\overline{" + (Name[Ν]) + (Name[Μ]) + "} \, = \, " + απόστασηΝΜ
D: Distance[E_1, Μ] + Distance[E_2, Μ]