A = (-2.94, 3.24)
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)
h = Line(A, B)
j = Line(A, B)
e = Line(A, B)
C = (-0.22, 4.4)
g = Line(C, e)
D = Point(g)
polígono1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
i = Segment(A, C)
k = OrthogonalLine(D, a_1)
E = Intersect(k, a_1)
l = Segment(D, E)
texto1: "área=\frac{1}{2}(" + (LaTeX[a_1]) + "+" + (LaTeX[c_1]) + ")\times " + (LaTeX[l]) + "=" + (LaTeX[polígono1]) + "\ cm^2"