rayon

Distance parcourue par une roue en un tour

R = 1 (slider from 0.3 to 3, step 0.1)
a: 6.283 * R
b = 0 (slider from 0 to 100, step 0.1)
O: (a * b / 100.0, R)
c = Circle(O, R)
A = Intersect(xAxis, yAxis)
B: (x(O), 0.0)
C = Rotate(B, 6.2833 - b * 6.2833 / 100.0, O)
α = Angle(B, O, C)
d = Segment(A, B)
e = CircleArc(O, B, C)
liste1 = Sequence((a * b / 100.0 + 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, 10.0)
liste2 = Sequence((a * b / 100.0 + 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, 10.0)
g = Circle(O, R / 8.0)
k = Circle(O, R)
liste3 = Sequence(Segment[Element[liste1, i], Element[liste2, i + 3.0]], i, 1.0, 33.0, 2.0)
f = Segment(Element[liste1, 35.0], Element[liste2, 2.0])
liste4 = Sequence(Segment[Element[liste1, i], Element[liste2, i - 3.0]], i, 4.0, 36.0, 2.0)
h = Segment(Element[liste1, 2.0], Element[liste2, 35.0])
i = If(b ≠ 0.0, 0.0, 1.0)
texte2: "faire tourner : " + (b / 100.0) + " tour"