Radios:

Dejar rastro

Dejar
rastro

Ver recorrido

Ver
recorrido

c1 = 40 (slider from 5 to 50, step 1)
b1 = 40 (slider from 1 to 40, step 1)
a1 = 40 (slider from 1 to 40, step 1)
c0: round(c1)
c: c0 / 20
O = (6.5, 0.32)
a0: round(a1)
a: a0 / 20
b0: round(b1)
b: b0 / 20
B: O + (1, 0)
e = Circle(O, a + b)
C = Point(e)
r = 5.75
y1 = 0.56 (slider from -5 to 2.5, step 0.1)
x1 = 14.48 (slider from 14.3 to 14.8, step 0.1)
α = Angle(B, O, C)
rojo: 1 - ((5 * a0) + (3 * b0) - 8) / 24
azul: 1 - ((5 * b) + (3 * a) - 8) / 24
verde: (a0 + b0 - 2) / 7
Borrar: (x1, y1)
ee = false
texto4: " \frac{" + a0 + " }{" + b0 + "}"
O': O
g = Circle(O, a + b + c)
f = Ray(O, C)
D = Intersect(g, f, 1)
k: a0 / b0
D' = Rotate(D, (k * α), C)
i = Segment(C, D')
d = Circle(O, a)
h = Circle(C, abs(b))
j = CurveCartesian(x(O) + ((a + b) * cos(t)) + (c * cos(((k + 1) * t))), y(O) + ((a + b) * sin(t)) + (c * sin(((k + 1) * t))), t, 0, 62.83185)
E = Intersect(d, f)
E' = Sequence(Segment[C, Rotate[E, (k * α) + (s * 3.141592653589793), C]], s, 0, 2, 0.125)
lugar1 = Locus(D', C)
l = false
DD: D'
texto5: a0 + ""
texto6: b0 + ""
texto7: c0 + ""