D = (4.86, 3.18)
A = (-2.7799999999999994, 0.16000000000000048)
B_1 = (4.08, 0.02)
n = Ray(A, B_1)
C = Point(n)
c = OrthogonalLine(C, n)
distanciaCA = Distance(C, A)
TextoCA: "\ {" + (Name[A]) + (Name[C]) + "} \, = \, " + distanciaCA + " \; cm."
m = Ray(A, D)
B = Intersect(c, m)
Â = Angle(C, A, B)
distanciaAB = Distance(A, B)
TextoAB: "\ {" + (Name[A]) + (Name[B]) + "} \, = \, " + distanciaAB + " \; cm."
distanciaBC = Distance(B, C)
TextoBC: "\ {" + (Name[B]) + (Name[C]) + "} \, = \, " + distanciaBC + " \; cm."
poly1, c_1, a, b = Polygon(A, B, C)
razBCAC: Distance[B, C] / Distance[A, C]
text1: "BC / AC = " + razBCAC