Teorema de l'ALTURA

A = (3.94, 1.56)
F = (12.56, 4.62)
a = Segment(A, F)
B = (5.14, 5.32)
b = Segment(A, B)
c = OrthogonalLine(B, b)
C = Intersect(c, a)
α = Angle(A, B, C)
d = OrthogonalLine(B, a)
E = Intersect(d, a)
distànciaAB = Distance(A, B)
TextAB: "\overline{" + (Name[A]) + (Name[B]) + "} \, = \, " + distànciaAB
distànciaBC = Distance(B, C)
TextBC: "\overline{" + (Name[B]) + (Name[C]) + "} \, = \, " + distànciaBC
distànciaAC = Distance(A, C)
TextAC: "\overline{" + (Name[A]) + (Name[C]) + "} \, = \, " + distànciaAC
distànciaBE = Distance(B, E)
TextBE: "\overline{" + (Name[B]) + (Name[E]) + "} \, = \, " + distànciaBE
e: Distance[A, B] * Distance[B, C]
f: Distance[A, C] * Distance[B, E]