Quadrilateres
Author: Daniel Mentrard

Cuadriláteros convexos

Cuadriláteros cóncavos

2 lados paralelos

Lados paralelos dos a dos

Un ángulo recto

Dos lados consecutivos
                iguales

Un ángulo recto

Dos lados consecutivos
                iguales

ROMBO

RECTÁNGULO

PARALELOGRAMO

TRAPECIOS

CUADRADO

Desplazar el cursor para la animación

F1 = (28.78103372156063, 1.8647278846277686)
L = (16.29111907006701, 11.000136968276054)
t = 3.6 (slider from 3.6 to 35, step 0.1)
rr2 = If(t  <  12, 0, If[t  <  20, t - 12, 8])
rr3 = If(t  <  22, 0.1, If[t  <  30, t - 22, 8])
A = (14.868878326830979, 12.59112455149167)
v0: (If[t  <  4, 0, If[t  <  10, t, 10]] * UnitVector[Vector[A, L]])
P: A + v0
v20: (rr2 * UnitVector[Vector[P, F1]])
J1: P + v20
v1 = Vector(P, J1)
v = Vector(A, P)
c = Circle(A, If[t  <  0, 0.1, If[t  <  3, t, 3]])
E = Point(c)
E'_1 = Translate(E, v)
E'_2 = Translate(E'_1, v1)
h1 = Line(E'_2, yAxis)
a1 = Line(E'_1, xAxis)
C = Point(c)
C'_1 = Translate(C, v)
q = Circle(P, C'_1)
A_1 = Intersect(q, a1, 1)
W: A_1
W'_1 = Translate(W, v1)
D = Point(c)
D'_1 = Translate(D, v)
D'_2 = Translate(D'_1, v1)
b1 = Line(D'_1, xAxis)
F = Point(c)
F'_1 = Translate(F, v)
poly1'_1, c'_1, d'_1, e'_1, f'_1 = Polygon(C'_1, D'_1, E'_1, F'_1)
c1 = Line(W, d'_1)
Z = Intersect(b1, c1)
Z'_1 = Translate(Z, v1)
i1 = Line(Z'_1, yAxis)
poly7'_1, z'_1, d'_4, e'_5, w'_1 = Polygon(Z'_1, D'_2, E'_2, W'_1)
K1 = Intersect(i1, e'_5)
L1 = Intersect(z'_1, h1)
V1 = Midpoint(K1, L1)
E1 = (12.091744233893376, 2.031204587746643)
u20: (rr2 * UnitVector[Vector[P, E1]])
H1: P + u20
u1 = Vector(P, H1)
Z' = Translate(Z, u1)
W' = Translate(W, u1)
E'_1' = Translate(E'_1, u1)
D'_1' = Translate(D'_1, u1)
poly7', z', d'_1', e'_1', w' = Polygon(Z', D'_1', E'_1', W')
N1 = Midpoint(e'_1')
P1 = Midpoint(W', N1)
R1 = Midpoint(N1, P1)
T1 = Midpoint(R1, N1)
U1 = Midpoint(D'_1', T1)
W1 = Midpoint(U1, V1)
j1 = Line(W1, yAxis)
Z1: (22.10118, -2.38146)
v30: (rr3 * UnitVector[Vector[V1, Z1]])
u30: (rr3 * UnitVector[Vector[U1, Z1]])
K = (-0.7394476589939414, 8.07014699338385)
u0: (If[t  <  4, 0, If[t  <  10, t, 10]] * UnitVector[Vector[A, K]])
l = Line(A, L)
f1 = Line(P, E1)
g1 = Line(P, F1)
n1 = Line(V1, Z1)
D_1 = Point(n1)
F_1: V1 + (If[t  <  30, t - 22, 8] * Vector[V1, D_1] / abs(Vector[V1, D_1]))
nn1 = Ray(V1, D_1)
m1 = Line(U1, Z1)
B = (28.2626858050314, 12.893809466253263)
d = Circle(B, If[t  <  0, 0.1, If[t  <  3, t, 3]])
poly1, c_1, d_1, e, f = Polygon(C, D, E, F)
G = Point(d)
H = Point(d)
I = Point(d)
J = Point(d)
poly2, g, h, b, i, j = Polygon(G, H, B, I, J)
a = Line(A, K)
N: A + u0
u = Vector(A, N)
C' = Translate(C, u)
D' = Translate(D, u)
E' = Translate(E, u)
F' = Translate(F, u)
poly1', c', d', e', f' = Polygon(C', D', E', F')
p = Circle(N, C')
m = Line(E', xAxis)
n = Line(C', m)
S: (3.34277, 11.57348)
Q, R = Intersect(p, m)
T: (6.6104, 11.57348)
poly3, r, s, k_1, l_1 = Polygon(R, T, S, Q)
poly5, t_2, s_1, q_1, r_1 = Polygon(T, S, Q, R)
poly4, z, d'_2, e'_3, w = Polygon(Z, D'_1, E'_1, W)
poly6, c_2, d_2, e_1, f_1 = Polygon(C, D, E, F)
poly7, z_1, d'_3, e'_4, w_1 = Polygon(Z, D'_1, E'_1, W)
d1 = Circle(A, 3)
A1 = Point(d1)
B1 = Point(d1)
C1 = Point(d1)
D1 = Point(d1)
poly8, a1_1, b1_1, d1_1, c1_1 = Polygon(A1, B1, D1, C1)
poly9, a1_2, b1_2, d1_2, c1_2 = Polygon(A1, B1, D1, C1)
poly10, g_1, h_1, b_1, i_1, j_1 = Polygon(G, H, B, I, J)
poly11, z'_2, l1, e'_6, k1 = Polygon(Z'_1, L1, E'_2, K1)
M1 = Midpoint(z')
O1 = Midpoint(M1, Z')
Q1 = Midpoint(M1, O1)
S1 = Midpoint(Q1, M1)
poly12, s1, d'_5, e'_7, t1 = Polygon(S1, D'_1', E'_1', T1)
α = Angle(Z'_1, L1, E'_2)
B_1: U1 + u30
V: B_1
B2: V
w1 = Vector(U1, B2)
C_1: V1 + v30
D2: C_1
z1 = Vector(V1, D2)
S1' = Translate(S1, w1)
D'_1'' = Translate(D'_1', w1)
E'_1'' = Translate(E'_1', w1)
T1' = Translate(T1, w1)
poly12', s1', d'_1'', e'_1'', t1' = Polygon(S1', D'_1'', E'_1'', T1')
Z'_1' = Translate(Z'_1, z1)
E'_2' = Translate(E'_2, z1)
K1' = Translate(K1, z1)
L1' = Translate(L1, z1)
poly11', z'_1', l1', e'_2', k1' = Polygon(Z'_1', L1', E'_2', K1')
r1 = Line(T1', yAxis)
a2 = Line(E'_1'', r1)
b2 = Line(S1', xAxis)
E2 = Intersect(r1, b2)
F2 = Intersect(a2, b2)
poly13, e2, f2, e'_8, t1'_1 = Polygon(E2, F2, E'_1'', T1')
β = Angle(E2, F2, E'_1'')
G2 = (11.955536022250659, 11.15337120637411)
H2 = (8.474659502492356, 9.75345347560175)
u2 = Vector(G2, H2)
I2 = (17.27875959474386, 10)
J2 = (21.1874259224792, 7.407645386199415)
v2 = Vector(I2, J2)
K2 = (18.576768532660473, 4.153782552512307)
L2 = (17.25252203057851, 3.66191956602472)
w2 = Vector(K2, L2)
M2 = (24.668302442237504, 4.229453781202704)
N2 = (26.219562630390662, 3.3970702656083276)
z2 = Vector(M2, N2)
O2 = (16.987672730162117, 0.6350704184088046)
P2 = (19.219973976528856, -0.6891760836731583)
c2 = Vector(O2, P2)
Q2 = (26.068220173009866, 0.5593991897184067)
R2 = (23.457562783191136, -0.7270116980183573)
d2 = Vector(Q2, R2)
M: (3.34277, 11.57348)
u00 = Vector((14.86888, 12.59112), (17.32925, 10.87457))
O = Intersect(p, m, 2)
u01 = Vector((14.86888, 12.59112), (12.4085, 10.87457))