Elevador de tijera

Utiliza un esquema parecido al de las pinzas extensibles.
El punto B se desplaza horizontalmente para reducir la base del primer triángulo y aumentar la altura del tercer vértice.
El conjunto de rombos articulados hace el resto.

Animación

SI

NO

SI

NO

Mueve B

w = 1 (slider from 0 to 1, step 0.1)
v = 0.4 (slider from 0 to 1, step 0.1)
a = 1.8 (slider from 1.5 to 2, step 0.1)
A = (-1.9959465268738672, -2.986718726977148)
e = Circle(A, a)
A1: A + ((2 * a), 0)
B0: A1 + (v, 0)
B00: B0 - (0, w)
l_2 = Line(B00, B0)
A2: A + (2, 0)
t = 0.652 (slider from 0.3 to 0.995, step 0.001)
B: A2 + (t * (A1 - A2))
h = Circle(B, a)
C = Intersect(e, h, 1)
c_1 = Circle(C, a)
s = Ray(B, C)
D = Intersect(c_1, s, 2)
f = Ray(A, C)
f_1 = Line(D, f)
E = Intersect(c_1, f, 2)
g_1 = Line(E, s)
F = Intersect(f_1, g_1)
d_1 = Circle(F, a)
H = Intersect(d_1, f_1, 2)
i_1 = Line(H, g_1)
G = Intersect(d_1, g_1, 2)
h_1 = Line(G, f_1)
I = Intersect(h_1, i_1)
e_1 = Circle(I, a)
K = Intersect(e_1, h_1, 2)
J = Intersect(e_1, i_1, 2)
k_2 = Line(J, K)
P = Intersect(l_2, k_2)
b = 2.53 (slider from 0 to 5, step 0.01)
c = 2.125 (slider from 0 to 5, step 1.0E-4)
k = 0 (slider from 0 to 1, step 1)
d = 0 (slider from 0 to 1, step 0.1)
d1: (10 * d)
texto1e: "Velocidad animación: " + d1 + ""
g = Segment(A2, A1)
i = Segment(A, C)
j = Segment(C, B)
l = Segment(A, B)
m = 0.2 (slider from 0 to 1, step 0.1)
A22: A2 + (0, m)
A12: A1 + (0, m)
A11: A1 - (0, m)
A21: A2 - (0, m)
n = Segment(A21, A11)
p = Segment(A12, A22)
q = Semicircle(A21, A22)
r = Semicircle(A12, A11)
nada = -4.9 (slider from -5 to 5, step 0.1)
texto1a: "AC = " + a + ""
texto1b: "BC = " + b + ""
dd = Distance(A, B)
texto1c: "AB = " + dd + ""
j_1 = Segment(C, D)
k_1 = Segment(D, H)
l_1 = Segment(C, E)
m_1 = Segment(E, G)
n_1 = Segment(G, K)
p_1 = Segment(H, J)
o = 0.4 (slider from 0 to 1, step 0.1)
q_1 = Circle(D, o)
r_1 = Circle(G, o)
L = Intersect(r_1, n_1)
M = Intersect(q_1, k_1)
u = 2.3 (slider from 0 to 3, step 0.1)
s_1 = Circle(B, u)
t_1 = Circle(E, u)
a_1 = Segment(B, M)
b_1 = Segment(E, G)
f_2 = Segment(E, L)
N = Intersect(t_1, f_2, 1)
O = Intersect(s_1, a_1, 1)
g_2 = Segment(B, O)
h_2 = Segment(E, N)
i_2 = Segment(N, L)
j_2 = Segment(O, M)
A0: A - (v, 0)
J0: J - (v, 0)
A00: A0 - (0, w)
J00: J0 + (0, w)
K0: P
K00: K0 + (0, w)
c1, j00, j0, k0, k00 = Polygon(J00, J0, K0, K00)
c2, a0, a00, b00, b0 = Polygon(A0, A00, B00, B0)
distanciaLN = Distance(L, N)
TextoLN: Name[L] + (Name[N]) + " = " + distanciaLN