Ver V'

-

+

-

+

-

+

alfa = 16.7 (slider from 0 to ((mcm * 2) * π), step 0.1)
m = 10 (slider from 5 to 50, step 5)
k = 0.14 (slider from 0.01 to 1, step 0.01)
r1: (k * m)
A = (-0.54, 0.655)
C: A + (r1, 0)
α: alfa / 5
C' = Rotate(C, α - 0.03, A)
b = Ray(A, C')
a = 0.25 (slider from 0 to 1, step 0.01)
e = Circle(A, r1 + (0.9 * a))
n = 20 (slider from 5 to 50, step 1)
r2: (k * n)
c = Circle(A, r1)
B: A + (r1 + r2 + a, 0)
d = Circle(B, r2)
D: B + ((-r2), 0)
C'_1 = Rotate(C', ((0.4 * 2) * 3.141592653589793 / m), A)
E = Intersect(e, b)
E'_1 = Rotate(E, ((0.1 * 2) * 3.141592653589793 / m), A)
E' = Rotate(E, ((0.3 * 2) * 3.141592653589793 / m), A)
polígono1, f, g, h, i = Polygon(C', E'_1, E', C'_1)
lista1 = Sequence(Polygon[Rotate[C', (((k + 0.3) * 2) * 3.141592653589793 / m), A], Rotate[E'_1, (((k + 0.3) * 2) * 3.141592653589793 / m), A], Rotate[E', (((k + 0.3) * 2) * 3.141592653589793 / m), A], Rotate[C'_1, (((k + 0.3) * 2) * 3.141592653589793 / m), A]], k, 1, m)
β: (α * r1 / r2)
D' = Rotate(D, (-β), B)
mcm = LCM(m, n)
p = Circle(B, r2 + (0.9 * a))
D'' = Rotate(D', (0.8 * π / n), B)
j = Ray(B, D')
F = Intersect(p, j, 1)
l = LineBisector(D'', D')
G = Intersect(p, l, 2)
H: G + (0.7 * (F - G))
H' = Mirror(H, l)
polígono2, d', h_1, h', d'' = Polygon(D', H, H', D'')
lista2 = Sequence(Polygon[Rotate[D', (((-k) * 2) * π / n), B], Rotate[H, (((-k) * 2) * π / n), B], Rotate[H', (((-k) * 2) * π / n), B], Rotate[D'', (((-k) * 2) * π / n), B]], k, 1, n)
q = Segment(A, C')
r = Segment(B, D')
nada = 0.4 (slider from -5 to 5, step 0.1)
V = 11 (slider from 0 to 60, step 1)
velo: V / mcm
o = false
texto1: "V' = " + ((V * m / n)) + " rpm"