17695

τ = 3 (slider from -5 to 5)
Β: ((3 * τ) - 1, (-4 * τ) - 1)
Α: (τ - 1, (2 * τ) - 1)
Γ: (-1, -1)
f = Line(Γ, Α)
g = Line(Γ, Β)
h = Segment(Α, Β)
απόστασηΑΒ = Distance(Α, Β)
Midpoint(Α, Β)
ΚείμενοΑΒ: Name[Α] + (Name[Β]) + " = " + απόστασηΑΒ
eq1: (4 * x) + (3 * y) + 7 = 0
απόστασηΑeq1 = Distance(Α, eq1)
Midpoint(Α, ClosestPoint[eq1, Α])
i = OrthogonalLine(Α, eq1)
Δ = Intersect(eq1, i)
απόστασηΔΑ = Distance(Δ, Α)
Midpoint(Δ, Α)
ΚείμενοΔΑ: Name[Δ] + (Name[Α]) + " = " + απόστασηΔΑ