Puerta levadiza

El mecanismo de apertura de la puerta levadiza para el acceso a muchos garajes utiliza una nueva visión del triángulo de base variable: ahora la base del triángulo se coloca en posición vertical. La posición de B y del segmento AB determinará la mayor o menor inclinación del segmento PR. Esto hará que la puerta se abra al quedar horizontal, o se cierre al alejarse B de A, y quedar la puerta vertical para que se cierre.
Veamos una puerta en acción:

Usa la aplicación y responde: 
Expresa las equivalencias entre los esquemas del gato elevador y los de la puerta levadiza.

Animación

SI

NO

SI

NO

Mueve B

t = -0.876 (slider from -1.1 to 1.1, step 0.001)
t2 = If(t ≤ 0, (-t), t)
b = 2.9999999999999996 (slider from 0 to 5, step 0.01)
a = 3 (slider from 0 to 5, step 0.1)
A: (0, 6)
A1: A - (0, a + b)
A2: A - (0, a - b)
t1 = Min(1, Max[0.01, t])
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 + ""
e = Circle(A, a)
g = Segment(A2, A1)
t3 = Min(1, Max[0.01, t2])
B: A2 + (t3 * (A1 - A2))
h = Circle(B, b)
C = Intersect(e, h, 1)
i = Segment(A, C)
j = Segment(C, B)
l = Segment(A, B)
m = 0.2 (slider from 0 to 1, step 0.1)
f = Line(B, C)
p = Circle(B, 0.4)
q = Circle(C, a)
D = Intersect(p, f, 1)
E = Intersect(q, f, 1)
B1: A1 - (0, 1.6)
B2: B1 - (8, 0)
B3: B1 + (10, 0)
BB: B2 + (t1 * (B3 - B2))
BB1: BB + (8, 0)
r = OrthogonalLine(A1, g)
nulo = 0.7 (slider from -5 to 5, step 0.1)
F = Intersect(q, f, 2)
n = Segment(D, F)
ab = Distance(A, B)
texto1c: "AB = " + ab + ""
texto1b: "BC = " + b + ""
texto1a: "AC = " + a + ""