L

R0 = 30
R1 = 20 (slider from 0 to R0, step 0.1)
Lmeplat: (2 * sqrt(R0^(2) - R1^(2)))
deplacement = 7.2 (slider from 0 to Lmeplat, step 0.1)
M2: (deplacement - Lmeplat / 2, 0)
M1: (deplacement + Lmeplat / 2, 0)
O: (deplacement, R1)
α = Angle(M2, O, M1)
β: (α * deplacement / Lmeplat)
c = Circle(O, R0)
f = Segment(M2, M1)
B: (Lmeplat / 2, 0)
d = CircleArc(O, M1, M2)
Perimetre0 = Circumference(c)
Perimetre2: d + f
e = Circle(O, R1)
Perimetre1 = Circumference(e)
Perimetre3: ((Distance[M2, M1] * 2) * π / α)
B' = Rotate(M1, (-β), O)
C = Rotate(B', α, O)
i = Segment(O, C)
A = Rotate(B', (-α), O)
a = Segment(O, A)
p = CircleArc(O, A, M2)
q = CircleArc(O, M1, C)
roulementAB: p + Distance[M2, B]
roulementBC: Distance[B, M1] + q
b = Segment(O, B')
γ = Angle(A, O, B')
δ = Angle(B', O, C)
I = Intersect(e, b, 1)
j = Segment(B, C)
h = Segment(A, B)
k = Segment(O, B)
ε = Angle(B, O, C)
ζ = Angle(A, O, B)
g = Segment(B', B)