A = (-2, -2)
B = (5, -2)
C = (4.08, 4.219999999999995)
polígono1, c, a, b = Polygon(A, B, C)
D = Point(b)
E = Point(a)
F = Point(c)
polígono2, d, f, e = Polygon(F, E, D)
perímetropolígono2 = Perimeter(polígono2)
g_1 = OrthogonalLine(C, c)
h_1 = OrthogonalLine(A, a)
i_1 = OrthogonalLine(B, b)
G = Intersect(g_1, c)
H = Intersect(h_1, a)
I = Intersect(b, i_1)
polígono3, i, g, h = Polygon(G, H, I)
perímetropolígono3 = Perimeter(polígono3)
Textopolígono2: "Perímetro DEF = " + perímetropolígono2
Textopolígono3 = If(Defined[perímetropolígono3], "Perímetro mínimo  = " + perímetropolígono3, "El triángulo es obtusángulo")