Engrenages

3e roue

Au hasard

Proportionnalité, fractions et engrenages.

Démarrer, régler la vitesse, choisir 2 ou 3 engrenages.

Avec le bouton “au hasard”, les engrenages sont choisis au hasard.
Avec le bouton “régler”, vous les réglez.
Avec le bouton RAZ, on met toutes les dents de couleur orientées vers le haut.

On peut déplacer les engrenages, ils ne se déclenchent que quand ils
sont à la bonne distance.

Questions possibles:
- quand la première roue fait un tour, combien de tours font les autres?
- au bout de combien de tours de chaque roue les dents de couleur se 
retrouvent dans la même position? Les trois ensemble?

?

RAZ

n_3 = 20 (slider from 5 to 30, step 1)
v_1 = 0 (slider from 0 to 5, step 1)
C_2 = (1.02, 1.52)
n_2 = 12 (slider from 5 to 30, step 1)
n_1 = 18 (slider from 5 to 30, step 1)
v_2: (((-n_1)) / n_2 * v_1)
C_1 = (-1.22, 1.28)
d12 = Distance(C_1, C_2)
R_1 = 1 (slider from 1 to 5, step 1)
R_2 = 1 (slider from 1 to 5, step 1)
go2: (d12 ≥ R_1 + R_2) ∧ (d12 ≤ (6 / 5 * (R_1 + R_2)))
vv_2 = If(go2, v_2, 0)
c_1 = Circle(C_1, R_1)
A_1 = Point(c_1)
α_1: (2 * π / n_1)
dentsori_1, a, b, d = Polygon(Rotate[A_1, (-1 / 5 * α_1), C_1], Rotate[A_1 + (1 / 5 * (A_1 - C_1)), 0, C_1], Rotate[A_1, (1 / 5 * α_1), C_1])
dents_1 = Sequence(Rotate[dentsori_1, (i * α_1), C_1], i, 1, n_1 - 1)
texte1: "" + n_1 + ""
α_2: (2 * π / n_2)
c_2 = Circle(C_2, R_2)
A_2 = Point(c_2)
dentsori_2, c, e, f = Polygon(Rotate[A_2, (-1 / 5 * α_2), C_2], Rotate[A_2 + (1 / 5 * (A_2 - C_2)), 0, C_2], Rotate[A_2, (1 / 5 * α_2), C_2])
dents_2 = Sequence(Rotate[dentsori_2, (i * α_2), C_2], i, 1, n_2 - 1)
C_3 = (9.5, 0.98)
α_3: (2 * π / n_3)
R_3 = 3 (slider from 1 to 5, step 1)
c_3 = Circle(C_3, R_3)
A_3 = Point(c_3)
dentsori_3, g, h, i = Polygon(Rotate[A_3, (-1 / 5 * α_3), C_3], Rotate[A_3 + (1 / 5 * (A_3 - C_3)), 0, C_3], Rotate[A_3, (1 / 5 * α_3), C_3])
dents_3 = Sequence(Rotate[dentsori_3, (i * α_3), C_3], i, 1, n_3 - 1)
texte2: "" + n_2 + ""
texte3: "" + n_3 + ""
d23 = Distance(C_2, C_3)
d13 = Distance(C_1, C_3)
go3: (d23 ≥ R_2 + R_3) ∧ (d23 ≤ (6 / 5 * (R_2 + R_3))) ∧ go2
v_3: (((-n_2)) / n_3 * vv_2)
vv_3 = If(go3, v_3, 0)
Démarrer = true
voir3 = false
aide = false
Régler = false
start: false