Rectángulo

Cualquiera

+

-

Inicia animación

Rompecabezas

+

-

Cambia el vértice superior

Centro

Izquierda

Rectángulo

Cualquiera

Rompecabezas

Iniciar animación

Velocidad animación

Transición de la animación

Tipo de triángulo

Desplaza el vértice superior

A = (-1, -2)
B = (5, -2)
C = Midpoint(A, B)
a = Segment(A, C)
c = Semicircle(A, B)
d = 0.5 (slider from 0.1 to 1, step 0.1)
D: A + (d * (C - A))
e = OrthogonalLine(D, a)
E = Intersect(c, e, 1)
D' = Mirror(D, E)
b = 0.5 (slider from 0 to 1, step 0.1)
F: D + (b * (D' - D))
polígono1, b_1, a_1, f = Polygon(A, F, B)
ph, g, h, i, j, G, H = Polygon(F, B, 4)
pb, k, l, m, n, I, J = Polygon(B, A, 4)
pa, p, q, r, s, K, L = Polygon(A, F, 4)
M = Midpoint(H, B)
t = OrthogonalLine(M, xAxis)
c_1 = OrthogonalLine(M, yAxis)
N = Intersect(t, i)
O = Intersect(t, a_1)
P = Intersect(c_1, h)
Q = Intersect(c_1, j)
R1 = (4.049038105676658, 1.549038105676658)
S1 = (4.049038105676658, 1.549038105676658)
T1 = (4.049038105676658, 1.549038105676658)
U1 = (4.049038105676658, 1.549038105676658)
R2: R1 + N - M
R3: R1 + H - M
R4: R1 + Q - M
S2: S1 + P - M
S3: S1 + G - M
S4: S1 + N - M
T2: T1 + O - M
T3: T1 + B - M
T4: T1 + P - M
U2: U1 + Q - M
U3: U1 + E - M
U4: U1 + O - M
p3, t1, t2, t3, t4 = Polygon(T1, T2, T3, T4)
p4, u1_1, u2, u3, u4 = Polygon(U1, U2, U3, U4)
p2, s1, s2, s3, s4 = Polygon(S1, S2, S3, S4)
p1, r1, r2, r3, r4 = Polygon(R1, R2, R3, R4)
V1 = (-1, -2)
V2: V1 + E - A
V3: V1 + K - A
V4: V1 + L - A
p5, v1_1, v2_1, v3_1, v4_1 = Polygon(V1, V2, V3, V4)
v3 = Vector(M, A)
v2 = Vector(M, I)
v1 = Vector(M, J)
v4 = Vector(M, B)
R = Midpoint(K, A)
S = Midpoint(A, J)
v5 = Vector(R, S)
o = -2 (slider from -2 to 8, step 0.001)
o1 = Max(0, Min[o, 1])
o2 = Max(0, Min[o - 1, 1])
o3 = Max(0, Min[o - 2, 1])
o4 = Max(0, Min[o - 3, 1])
o5 = Max(0, Min[o - 4, 1])
o6 = Max(0, Min[o - 5, 1])
R1' = Translate(R1, Vector[(o1 * v1)])
R2' = Translate(R2, Vector[(o1 * v1)])
R3' = Translate(R3, Vector[(o1 * v1)])
R4' = Translate(R4, Vector[(o1 * v1)])
p11, r1', r2', r3', r4' = Polygon(R1', R2', R3', R4')
S1' = Translate(S1, Vector[(o2 * v2)])
S2' = Translate(S2, Vector[(o2 * v2)])
S3' = Translate(S3, Vector[(o2 * v2)])
S4' = Translate(S4, Vector[(o2 * v2)])
p22, s1', s2', s3', s4' = Polygon(S1', S2', S3', S4')
T2' = Translate(T2, Vector[(o2 * v3)])
T3' = Translate(T3, Vector[(o2 * v3)])
T1'_1 = Translate(T1, Vector[(o3 * v3)])
T2'_1 = Translate(T2, Vector[(o3 * v3)])
T3'_1 = Translate(T3, Vector[(o3 * v3)])
T4'_1 = Translate(T4, Vector[(o3 * v3)])
p33, t1'_1, t2'_1, t3'_1, t4'_1 = Polygon(T1'_1, T2'_1, T3'_1, T4'_1)
U1' = Translate(U1, Vector[(o4 * v4)])
U2' = Translate(U2, Vector[(o4 * v4)])
U3' = Translate(U3, Vector[(o4 * v4)])
U4' = Translate(U4, Vector[(o4 * v4)])
p44, u1', u2', u3', u4' = Polygon(U1', U2', U3', U4')
V1' = Translate(V1, Vector[(o5 * v5)])
V2' = Translate(V2, Vector[(o5 * v5)])
V3' = Translate(V3, Vector[(o5 * v5)])
V4' = Translate(V4, Vector[(o5 * v5)])
p55, v1', v2', v3', v4' = Polygon(V1', V2', V3', V4')
u = 1 (slider from 0 to 3, step 1)
velocidad = 0 (slider from 0 to 1, step 0.1)
nada = 3.4 (slider from -5 to 5, step 0.1)
α = Angle(V1, F, B)
β, γ, δ, ε = Angle(ph)
ζ, η, θ, ι = Angle(ph)
Puntoph = PointIn(ph)
Puntopa = PointIn(pa)
Puntopb = PointIn(pb)
texto1: "h = " + f + ""
texto2: "a =  " + a_1 + ""
texto3: "b = " + b_1 + ""
aa: a_1^(2)
bb: b_1^(2)
ff: f^(2)
cc: aa + bb
Textoph: "Área de  = " + ph + ""
κ = Angle(A, F, B)
p20, m_1, p_1, g_1, n_1 = Polygon(M, P, G, N)
p10, m_2, n_2, h_1, q_1 = Polygon(M, N, H, Q)
p40, m_3, q_2, e_1, o_1 = Polygon(M, Q, E, O)
p30, m_4, o_2, b_2, p_2 = Polygon(M, O, B, P)
p50, d_1, f_1, i_1, j_1 = Polygon(A, E, K, L)
texto4: "a^2 + b^2 = " + (LaTeX[a_1]) + "^2+" + (LaTeX[b_1]) + "^2= " + (LaTeX[aa]) + " + " + (LaTeX[bb]) + " = " + (LaTeX[cc]) + ""
texto5: "h^2 = " + (LaTeX[f]) + "^2= " + (LaTeX[ff]) + ""
texto6: "Ángulo vértice superior = " + κ + ""