Lugar

Curva

A = (3.42, -0.98)
B: A + (1.0, 0.0)
a = 2.4 (slider from 0 to 6, step 0.1)
b = -1.2 (slider from -3 to 3, step 0.1)
c = 3.6 (slider from 0 to 6, step 0.1)
k: a / b
d = Circle(A, a)
e = Circle(A, a + b)
C = Point(e)
α = Angle(B, A, C)
f = Ray(A, C)
g = Circle(A, a + b + c)
D = Intersect(g, f, 1.0)
h = Circle(C, abs(b))
D' = Rotate(D, k * α, C)
i = Segment(C, D')
lugar1 = Locus(D', C)
E = Intersect(d, f)
verLugar = true
verCurva = false
j = CurveCartesian(x(A) + (a + b) * cos(t) + c * cos((k + 1.0) * t), y(A) + (a + b) * sin(t) + c * sin((k + 1.0) * t), t, 0.0, 62.83185307179586)
E' = Sequence(Segment[C, Rotate[E, k * α + s * 3.141592653589793, C]], s, 0.0, 2.0, 0.125)