A = (-3.2, 2.88)
a: x = x(A)
b: y = y(A)
B_1 = Point(b)
c = Ray(A, B_1)
C_1 = Point(a)
d = Ray(A, C_1)
B = Point(c)
f = OrthogonalLine(B, c)
C = (-1.2, 4.18)
e = Line(A, C)
g = Line(B, e)
h = Line(A, B)
i = Line(C, h)
D = Intersect(g, i)
polígono1, c_1, a_1, b_1, d_1 = Polygon(C, A, B, D)
j = Line(A, B)
k = OrthogonalLine(D, j)
l = OrthogonalLine(C, a_1)
E = Intersect(j, l)
n = Segment(E, C)
polígono2, c_2, a_2, b_2 = Polygon(A, B, C)
m = Segment(B, D)
p = Segment(C, D)
q = Line(A, B)
r = OrthogonalLine(C, q)
F = Intersect(q, r)
s = Segment(A, F)
t = Segment(F, C)
o: c_2 * t
texto1: "área=\frac{1}{2}\  " + (LaTeX[c_2]) + "\ cm \times " + (LaTeX[t]) + "\ cm =" + (LaTeX[polígono2]) + "\ cm^2"