Author: Departamento de Matemática - Colegio Seminario

A = (7, 2)
B = (6, 4)
C = (2, 2)
D = (3, 0)
polígono1, a, b, c, d = Polygon(A, B, C, D)
pa = If(Midpoint[A, C] ≟ Midpoint[B, D], 1, 0)
α = Angle(D, A, B)
β = Angle(B, C, D)
γ = Angle(C, D, A)
re = If(α ≟ 90° ∧ β ≟ 90° ∧ γ ≟ 90°, 1, 0)
ro = If(a ≟ b ∧ b ≟ c ∧ c ≟ d, 1, 0)
cu: re * ro
tr = If(Line[A, c] ≟ Line[A, B] ∨ Line[B, d] ≟ Line[B, C], 1, 0)
radio = 0.4
e = Circle((0, 0), radio)
f = Circle((0, 1), radio)
g = Circle((0, 2), radio)
h = Circle((0, 3), radio)
k = Circle((0, 4), radio)