Rectángulo

Cuadrado

Rombo

Romboide

Trapecio

Trapezoide

No es un polígono

Cuadriláteros

Cuadrado

Rectángulo

Rombo

Trapezoide

Romboide

Trapecio

Está bien, es un cuadrado

Está bien, es un rectángulo

Está bien, es un rombo

Está bien, es un romboide

Está bien, es un trapecio

Está bien, es un trapezoide

Comprobar

Lo siento, no está bien

Diagonales

Es un trapecio isósceles

Es un trapecio rectángulo

Es un trapecio escaleno

No es un trapecio

Tipo de trapecio

Ángulos

Longitudes de los lados

No es un polígono simple

No es un cuadrilátero

Área

D = (11, -1)
C = (3, -3)
pCD = If(C ≟ D, 0, Slope[Line[C, D]])
B = (5, 4)
pBC = If(B ≟ C, 0, Slope[Line[B, C]])
A = (10, 3)
pAD = If(A ≟ D, 0, Slope[Line[A, D]])
pAB = If(A ≟ B, 0, Slope[Line[A, B]])
coincidenPendientes = If(pAB ≟ pBC ∨ pBC ≟ pCD ∨ pCD ≟ pAD ∨ pAD ≟ pAB, true, false)
polígono1, a, b, c, d = Polygon(A, D, C, B)
M = Intersect(d, b)
noesP = If(A ≟ C ∨ B ≟ D ∨ coincidenPendientes, true, false)
L = Intersect(a, c)
noesC = If((A ≟ B ∨ A ≟ D) ∧ (B ≠ C) ∧ (B ≠ D) ∧ (C ≠ D) ∧ (pBC ≠ pCD) ∨ B ≟ C ∧ (A ≠ C) ∧ (A ≠ D) ∧ (C ≠ D) ∧ (pAD ≠ pCD) ∨ C ≟ D ∧ (A ≠ B) ∧ (A ≠ D) ∧ (B ≠ D) ∧ (pAB ≠ pAD), true, false)
noesS = If(noesP ≟ 0 ∧ (¬noesC) ∧ (Defined[L] ∨ Defined[M]), true, false)
noes = If(noesC ∨ noesS ∨ noesP, true, false)
romboide = If(a ≟ c ∧ b ≟ d ∧ ((Vector[A, D] * Vector[A, B]) ≠ 0) ∧ (a ≠ b) ∧ (¬noes), 1, 0)
rombo = If(a ≟ b ∧ b ≟ c ∧ c ≟ d ∧ (Distance[A, C] ≠ Distance[D, B]) ∧ noesP ≟ 0 ∧ (¬noes), 1, 0)
cuadrado = If(a ≟ b ∧ b ≟ c ∧ c ≟ d ∧ Distance[A, C] ≟ Distance[D, B] ∧ (¬noes), 1, 0)
rectángulo = If(a ≟ c ∧ b ≟ d ∧ (Vector[A, D] * Vector[A, B]) ≟ 0 ∧ (a ≠ b) ∧ (¬noes), 1, 0)
trapecio = If((Slope[Line[A, D]] ≟ Slope[Line[B, C]] ∨ Slope[Line[A, B]] ≟ Slope[Line[D, C]]) ∧ cuadrado ≟ 0 ∧ rectángulo ≟ 0 ∧ rombo ≟ 0 ∧ romboide ≟ 0 ∧ (¬noes), 1, 0)
estado = 6 (slider from 0 to 6, step 1)
trapezoide = If(cuadrado ≟ 0 ∧ rectángulo ≟ 0 ∧ rombo ≟ 0 ∧ romboide ≟ 0 ∧ trapecio ≟ 0 ∧ noesP ≟ 0 ∧ (¬noes), 1, 0)
f = false
g = Segment(A, C)
h = Segment(D, B)
i = false
isósceles = If(trapecio ≟ 1 ∧ (a ≟ c ∨ b ≟ d), 1, 0)
traperectan = If(trapecio ≟ 1 ∧ ((Vector[A, D] * Vector[D, C]) ≟ 0 ∨ (Vector[C, B] * Vector[B, A]) ≟ 0), 1, 0)
escaleno = If(trapecio ≟ 1 ∧ isósceles ≟ 0 ∧ traperectan ≟ 0, 1, 0)
j = false
E = Midpoint(h)
F = Midpoint(g)
α = Angle(C, B, A)
β = Angle(B, A, D)
γ = Angle(A, D, C)
δ = Angle(D, C, B)
k = false
l = Segment(C, B)
m = Segment(B, A)
n = Segment(A, D)
p = Segment(C, D)
o = false
G = Intersect(g, h)
ε = Angle(A, G, B)
maxX = Max({x(A), x(D), x(C), x(B)})
maxY = Max({y(A), y(D), y(C), y(B)})
minX = Min({x(A), x(D), x(C), x(B)})
minY = Min({y(A), y(D), y(C), y(B)})
cuadricula: {Sequence[Segment[(minX + s, minY), (minX + s, maxY)], s, 0, maxX - minX], Sequence[Segment[(minX, minY + s), (maxX, minY + s)], s, 0, maxY - minY]}
e = false
texto28: "Área = " + polígono1