Author: Leopoldo Aranda Murcia

+

$ - $

$ = $

+

$ - $

Opera

$ = $

$ = $

E = (7.066479277735468, 2.006561859425261)
f(x) = If[x  <  0, 0, If[x > 1, 1, x]]
i = 1.3 (slider from 0 to 1.3, step 0.1)
A = (1.0008434490106874, 1.9858864495919633)
c_1 = Circle(A, 1)
B = (3.283873091628092, 1.9835079096993349)
d_1 = Circle(B, 1)
C: E + (f(1 - i) * ((-1.2), 0))
e = Circle(C, 1)
b = 6 (slider from 1 to 10, step 1)
d = 6 (slider from 1 to 10, step 1)
separaciones1 = Sequence(Segment[A, A + (1; ((2 * π) * i / b))], i, 0, b - 1)
separaciones2 = Sequence(Segment[B, B + (1; ((2 * π) * i / d))], i, 0, d - 1)
a = 5 (slider from 0 to b, step 1)
c = 1 (slider from 0 to d, step 1)
g = CircleSector(A, A + (1, 0), A + (1; ((360° * 0.99999) * a / b)))
h = CircleSector(A, A + (1; ((360° * 0.99999) * a / b)), A + (1, 0))
k_1 = CircleSector(B, B + (1, 0), B + (1; ((360° * 0.99999) * c / d)))
p = CircleSector(B, B + (1; ((360° * 0.99999) * c / d)), B + (1, 0))
D: E + (f(1 - i) * (1.2, 0))
q_1 = Circle(D, 1)
r = CircleSector(C, C + (1, 0), C + (1; ((360° * 0.99999) * a / b)))
s = CircleSector(D, D + (1, 0), D + (1; ((360° * 0.99999) * c / d)))
rojod = If((a / b - c / d ≥ 0) ∧ i ≟ 1.3, 1, 0)
Sectorblanco1 = CircleSector(D, D + (1, 0), D + (1; ((360° * 0.99999) * c / d)))
azuld = If((a / b - c / d ≤ 0) ∧ i ≟ 1.3, 1, 0)
Sectorblanco2 = CircleSector(C, C + (1, 0), C + (1; ((360° * 0.99999) * a / b)))
lista1 = Sequence(Segment[C, C + (1; ((2 * π) * i / b))], i, 0, b - 1)
lista2 = Sequence(Segment[D, D + (1; ((2 * π) * i / d))], i, 0, d - 1)
t = CircleSector(C, C + (1; ((360° * 0.99999) * a / b)), C + (1, 0))
e_1 = CircleSector(D, D + (1; ((360° * 0.99999) * c / d)), D + (1, 0))
k = 1 (slider from 1 to 10, step 1)
separaciones12 = Sequence(Segment[C, C + (1; ((2 * π) * i / ((b * k))))], i, 0, (b * k) - 1)
q = 1 (slider from 1 to 10, step 1)
separaciones22 = Sequence(Segment[D, D + (1; ((2 * π) * i / ((q * d))))], i, 0, (d * q) - 1)
texto2: "$ -\frac{" + (LaTeX[c]) + "}{" + (LaTeX[d]) + "} $"
d_2 = 5 (slider from 1 to 10, step 1)
c_2 = 4 (slider from 1 to d_2, step 1)
texto1_2: "$ +\frac{" + (LaTeX[(a * k)]) + "}{" + (LaTeX[(b * k)]) + "} $"
b_1 = 5 (slider from 1 to 10, step 1)
a_1 = 2 (slider from 1 to b_1, step 1)
texto2_4: "$ -\frac{" + (LaTeX[(c * q)]) + "}{" + (LaTeX[(d * q)]) + "} $"
F: E + (0, 1)
G: F + ((-1.2), 0)
H: F + (1.2, 0)
I: F + (0.2, 0)
J: F + ((-0.2), 0)
K: G + (f(i / 0.8) * Vector[G, J])
L: H + (f(i / 0.8) * Vector[H, I])
texto2_7: "$ " + (LaTeX[If[(a * k) - (c * q) > 0, "+", If[(a * k) - (c * q)  <  0, "-", ""]]]) + "\frac{" + (LaTeX[abs((a * k) - (c * q))]) + "}{" + (LaTeX[(b * k)]) + "} $"
texto1: "$ +\frac{" + (LaTeX[a]) + "}{" + (LaTeX[b]) + "} $"