Ο = (7.24, 4.56)
c = Circle(Ο, 3)
Ρ = (1.32, 9.56)
Β = Point(c)
a = Segment(Ρ, Β)
Α = Intersect(c, a, 2)
Δ = Point(c)
b = Segment(Ρ, Δ)
Γ = Intersect(c, b, 2)
απόστασηΡΑ = Distance(Ρ, Α)
ΚείμενοΡΑ: "\overline{" + (Name[Ρ]) + (Name[Α]) + "} \, = \, " + απόστασηΡΑ
απόστασηΡΒ = Distance(Ρ, Β)
ΚείμενοΡΒ: "\overline{" + (Name[Ρ]) + (Name[Β]) + "} \, = \, " + απόστασηΡΒ
prod1: Distance[Ρ, Α] * Distance[Ρ, Β]
απόστασηΡΓ = Distance(Ρ, Γ)
ΚείμενοΡΓ: "\overline{" + (Name[Ρ]) + (Name[Γ]) + "} \, = \, " + απόστασηΡΓ
απόστασηΡΔ = Distance(Ρ, Δ)
ΚείμενοΡΔ: "\overline{" + (Name[Ρ]) + (Name[Δ]) + "} \, = \, " + απόστασηΡΔ
prod2: Distance[Ρ, Γ] * Distance[Ρ, Δ]
κείμενο2: "\Rho\Gamma\cdot \Rho\Delta = " + (LaTeX[prod2]) + ""
prod3: Distance[Ρ, Δ]^(2)
κείμενο3: "\Rho\Delta^2 =  " + (LaTeX[prod3]) + ""
κείμενο1: " \Rho\Alpha\cdot \Rho\Beta =  " + (LaTeX[prod1]) + ""