rayon (m)

Distance parcourue par une roue en un tour

fréquence de rotation (tr/s)

durée (s)

2 poteaux rouges sont distants de 10 m.

Distance entre 2 points rouges : 1 m

R = 0.4 (slider from 0.15 to 0.5, step 0.01)
a: 6.283 * R
b = 820 (slider from 0 to 1000, step 0.1)
O: (-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * R, R)
c = Circle(O, R)
B: (x(O), 0.0)
liste1 = Sequence((-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * R + R / 8.0 * cos(3.1416 * i / 180.0 - b * 6.283 / 100.0), R + R / 8.0 * sin(3.1416 * i / 180.0 - b * 6.283 / 100.0)), i, 0.0, 360.0, 36.0)
liste2 = Sequence((-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * R + R * cos(3.1416 * i / 180.0 - b * 6.283 / 100.0), R + R * sin(3.1416 * i / 180.0 - b * 6.283 / 100.0)), i, 0.0, 360.0, 36.0)
g = Circle(O, R / 8.0)
k = Circle(O, R)
f = Segment(Element[liste1, 35.0], Element[liste2, 2.0])
h = Segment(Element[liste1, 2.0], Element[liste2, 35.0])
n = 1.5 (slider from 0 to 3, step 0.1)
liste3 = Sequence(Segment[Element[liste1, i], Element[liste2, i + 1.0]], i, 1.0, 7.0, 2.0)
liste4 = Sequence(Segment[Element[liste1, i], Element[liste2, i - 1.0]], i, 2.0, 9.0, 2.0)
i = Segment(Element[liste1, 9.0], Element[liste2, 10.0])
j = Segment(Element[liste1, 10.0], Element[liste2, 9.0])
l = 0 (slider from 0 to 100, step 0.05)
liste5 = Sequence((i * 10.0 - 6.2833 * R * n * l, 0.0), i, 0.0, 100.0)
liste6 = Sequence((i * 10.0 - 6.2833 * R * n * l, 5.0), i, 0.0, 100.0)
liste7 = Sequence(Segment[Element[liste5, i], Element[liste6, i]], i, 1.0, 101.0)
D = (7.62, 7.84)
liste8 = Sequence((i * 15.0 - 1.0 - 6.2833 * R * n * l / 4.0, 4.0), i, 0.0, 70.0)
liste9 = Sequence((i * 15.0 - 1.0 - 6.2833 * R * n * l / 4.0, 5.25), i, 0.0, 70.0)
liste11 = Sequence((i * 5.0 + 3.0 - 6.2833 * R * n * l / 16.0, 5.1), i, 0.0, 100.0)
liste12 = Sequence((i * 5.0 + 3.0 - 6.2833 * R * n * l / 16.0, 5.4), i, 0.0, 100.0)
liste13 = Sequence(Segment[Element[liste11, i], Element[liste12, i]], i, 1.0, 101.0)
E = (-50, 5.2)
F = (1200, 5.2)
G = (1200, 0)
H = (-50, 0)
poly1, e, f_1, g_1, h_1 = Polygon(E, F, G, H)
C: (-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * R + R * cos(3.1416 / 180.0 - b * 6.283 / 100.0), R + R * sin(3.1416 / 180.0 - b * 6.283 / 100.0))
A = (-50, -10)
I = (1200, 10)
poly2, g_2, h_2, a_1, i_1 = Polygon(G, H, A, I)
liste10 = Sequence(Segment[Element[liste8, i], Element[liste9, i]], i, 1.0, 71.0)
Séquence[Segment[Elément[liste8, i], Elément[liste9, i]], i, 1, 101] = Sequence(Segment[Element[liste8, i], Element[liste9, i]], i, 1.0, 71.0)
liste14 = Sequence((i - 6.2833 * R * n * l, 0.0), i, 0.0, 1000.0)