Mechanismus

Spur

Kurbel = 5 (slider from 4 to 6, step 0.1)
a = 13 (slider from 12 to 14, step 0.1)
b = 15 (slider from 14 to 16, step 0.1)
c = 11 (slider from 10 to 12, step 0.1)
d = 11 (slider from 10 to 12, step 0.1)
e = 16 (slider from 15 to 17, step 0.1)
f = 18 (slider from 17 to 19, step 0.1)
g = 11 (slider from 10 to 12, step 0.1)
h = 11 (slider from 10 to 12, step 0.1)
i = 11 (slider from 10 to 12, step 0.1)
j = 20 (slider from 19 to 21, step 0.1)
k = 14 (slider from 13 to 15, step 0.1)
Kurbelwinkel = 1.3962634015954636 rad (slider from 0 to 6.283185307179586, step Schrittwinkel)
Schrittwinkel = 0.08726646259971647 rad (slider from 1*° to 60*°, step 0.017453292519943295)
Speed = 1 (slider from -5 to 5, step 1)
A = (10, 0)
B = Point(Circle[A, a])
a' = Segment(A, B)
B' = Rotate(B, Kurbelwinkel, A)
α = Angle(B, A, B')
m = Ray(A, B')
p = Circle(A, Kurbel)
C = Intersect(p, m, 1)
Kurbel' = Segment(A, C)
q = Circle(C, b)
r = Circle(B, c)
D = Intersect(q, r, 2)
b' = Segment(C, D)
c' = Segment(B, D)
s = Circle(B, d)
t = Circle(D, e)
E = Intersect(s, t, 1)
e' = Segment(D, E)
d' = Segment(B, E)
c_1 = Circle(C, f)
d_1 = Circle(B, g)
F, G = Intersect(d_1, c_1)
f' = Segment(C, G)
g' = Segment(G, B)
e_1 = Circle(E, h)
f_1 = Circle(G, i)
H = Intersect(e_1, f_1, 2)
h' = Segment(E, H)
i' = Segment(G, H)
g_1 = Circle(H, j)
h_1 = Circle(G, k)
Fuß = Intersect(g_1, h_1, 2)
j' = Segment(H, Fuß)
k' = Segment(G, Fuß)
n = true
l = true