Transformation: Translation

Either drag the blue point to move the mechanism or give the "Speed" slider (if visible) a non-zero value. Note that you may need to Right-click on the blue point and select "Animation on" to reset it if it does not respond to the "Speed" slider at first.

P

Path

Button change

Hide trace

Clear trace

Trace off

ZoomIn[-10.56,-2.71,9.94,10.89]

Screen

set

P is the movable point

Drag

D

P'

Locus

I_1 = (4.795500475001778, -0.022223480144678343)
H_1 = (4.510129032692992, 2.5104800800701876)
G_1 = (5.01734922541796, 1.5553676339259583)
F_1 = (5.68289547666651, 1.5553676339259583)
E_1 = (6.3484417279150565, 2.8864601364230587)
D_1 = (6.003343671712108, -0.4659209809770455)
B_1 = (6.79213922874743, -0.34267167519027586)
A_1 = (7.408385757681273, 3.5027066653568997)
Z = (6.447041172544478, 3.724555415773079)
L = (5.14059853120473, 1.8758158289715565)
K = (5.14059853120473, 3.552006387671607)
J = (3.982055056809103, 3.552006387671607)
I = (4.253203529539995, 0.32287457605827385)
poly1, i_2, j_1, k_1, l_1, z, a_2, b_2, d_2, e_2, f_2, g_2, h_2, i_3 = Polygon(I, J, K, L, Z, A_1, B_1, D_1, E_1, F_1, G_1, H_1, I_1)
A = Intersect(xAxis, yAxis)
CP_1 = 8.9 (slider from 0 to 10, step 0.1)
CD = 7.6 (slider from 0 to 10, step 0.1)
BC = 6 (slider from 0 to 10, step 0.1)
AB = 6.2 (slider from 0.01 to 10, step 0.01)
c = Circle(A, AB)
d = Circle(A, BC)
P_1 = Point(poly1)
e = Circle(P_1, CP_1)
C_1, C = Intersect(e, d)
a = Ray(C, P_1)
b = Ray(A, C)
A_2 = Intersect(c, b)
f = Circle(C, CD)
D = Intersect(f, a)
g_1 = Segment(C, D)
h_1 = Line(D, b)
i = Line(A_2, g_1)
E = Intersect(i, h_1)
j = Line(A, P_1)
P_2 = Intersect(i, j)
k_2 = Segment(A_2, E)
l = Segment(E, D)
m = Segment(A, C)
n = Segment(C, A_2)
p = Segment(E, P_2)
s = false
F = Intersect(n, k_2)
G = Intersect(yAxis, xAxis)
H = Intersect(yAxis, xAxis)
M = Intersect(n, g_1)
N = Intersect(n, g_1)
O = Intersect(l, k_2)
P = Intersect(g_1, l)
Q = Intersect(yAxis, xAxis)
t = Circle(C, P_1)
R = Intersect(t, g_1)
c_1 = Circle(A_2, P_2)
S, V = Intersect(c_1, p)
h = false
g = false
d_1 = Circle(A_2, P_2)
a_1 = Segment(D, P_1)
b_1 = Line(A, P_1)
U = Intersect(b_1, a_1)
J_1 = (11.078578446721579, 7.928992020266834)
K_1 = (10.856729696305395, 4.625910625181438)
L_1 = (14.751407759167288, 4.625910625181438)
Speed = 0 (slider from -5 to 5, step 0.1)
r = Circle(P_1, C)
e_1 = Circle(A, A_2)
O_1 = Point(e_1)
f_1 = Segment(A, O_1)
i_1 = Line(P_1, f_1)
AD = 5.1 (slider from 0 to 10, step 0.1)
DP = 3.4 (slider from 0 to 10, step 0.1)
k = Circle(A, AD)
q = Circle(O_1, AD)
p_1 = Circle(P_1, DP)
M_1 = Intersect(k, p_1, 1)
m_1 = Segment(A, M_1)
n_1 = Segment(M_1, P_1)
q_1 = Line(O_1, m_1)
r_1 = Circle(P_1, Radius[e_1])
N_1 = Intersect(r_1, i_1, 2)
s_1 = Line(M_1, f_1)
Q_1 = Intersect(s_1, q_1)
t_1 = Segment(Q_1, N_1)
c_2 = Segment(N_1, P_1)
j_2 = Segment(M_1, Q_1)
l_2 = Segment(O_1, Q_1)
R_1 = Intersect(f_1, l_2)
S_1 = Intersect(j_2, l_2)
T_1 = Intersect(t_1, c_2)
U_1 = Intersect(j_2, n_1)
V_1 = Intersect(t_1, c_2)
loc13 = Locus(N_1, P_1)
o = false
c_L = If(AB > 0.01, Text["    C", S_1], Text["", S_1])
text3 = If(AB > 0.01, Text["   B", R_1], Text["", R_1])