Polipasto 2 polea

Al estirar de la cuerda en P, se recoge la cuerda, a la vez que la polea sube en A (B es fijo).

Usa la aplicación y responde:

1. Cuando bajamos el punto P dos metros, ¿cuánto ascenderá el peso que colgamos en el gancho? 
2. ¿Que efecto tendrá sobre los pesos que podamos subir?

Animación

SI

NO

SI

NO

Lugar geom 

SI

NO

SI

NO

Mueve P

M = (-4.993308077716352, 5.983659022345657)
M1: M + (1, 0)
g = Line(M, M1)
h = OrthogonalLine(M, g)
b = 1.5000000000000013 (slider from -5 to 5, step 0.01)
a = 1.4999999999999996 (slider from -5 to 5, step 0.1)
M2: M + (a + b, 0)
B: M2 - (0, 2)
p = Circle(B, b)
j = Segment(B, M2)
m = OrthogonalLine(B, j)
D = Intersect(p, m, 1)
r = OrthogonalLine(D, g)
D1 = Point(r)
s = OrthogonalLine(D1, h)
J = Intersect(h, s)
D2 = Point(r)
t = 0.249 (slider from 0 to 1, step 0.001)
P: D1 + (t * (D2 - D1))
dd = Distance(P, D1)
d = 2.1000000000000005 (slider from -5 to 5, step 0.1)
c = 3.300000000000003 (slider from -5 to 5, step 0.1)
A: J + (0, dd / 2) - (0, 4)
f = Circle(A, a)
B1: B + (1, 0)
i = Ray(B, B1)
C1 = Intersect(p, i, 1)
c_1 = 2.0625 (slider from 0 to 5, step 1.0E-4)
k = 0 (slider from 0 to 1, step 1)
v = 0 (slider from 0 to 1, step 0.1)
d1: (10 * v)
k1 = 0 (slider from 0 to 1, step 1)
nada = -3.9 (slider from -5 to 5, step 0.1)
texto3: "CD = " + c + ""
texto1b: "BC = " + b + ""
texto1a: "AB = " + a + ""
texto4: "DA = " + d + ""
l = OrthogonalLine(A, h)
C = Intersect(p, m, 2)
E = Intersect(f, l, 1)
F, G = Intersect(f, l)
n = Segment(E, C)
q = OrthogonalLine(G, g)
H = Intersect(q, g)
I = Intersect(g, r)
texto1e: "Vel animación: " + d1 + ""
AA: D1 + (t * (D2 - D1))
α: dd
BB = Rotate(D, (-α), B)
e = Segment(H, G)
f_1 = Segment(E, C)
g_1 = Segment(D, D1)
c_1 = CircleArc(B, D, C)
d_1 = CircleArc(A, G, E)
h_1 = Segment(M, A)
K = Point(g)
L = Point(g)
i_1 = Segment(K, L)
EE = Rotate(E, α / 2, A)
j_1 = Segment(EE, A)
k_1 = Segment(B, BB)
l_1 = Segment(I, D1)
m_1 = Segment(D1, D2)
N = Intersect(f, d_1, 1)
O = Intersect(f, d_1, 1)
P_1, U = Intersect(f, d_1)
Q = Intersect(f, d_1, 1)
R = Intersect(f, d_1, 1)
S, T = Intersect(f, h)
S1: S + (0, -0.3)
S2: S1 + (0, -0.2)
S3 = Rotate(S1, 270°, S2)
e_1 = CircleArc(S2, S1, S3)
n_1 = Segment(S1, S)
p_1 = Segment(P, D1)
q_1 = Segment(D, D1)