Übersetzung beim 12-Gang-Rad
Author: Mag.G.Wengler

Mit den Schiebereglern kannst du die Zahl der Zähne 
a) für das Pedalrad und 
b) für das Hinterrad einstellen.

Pedalrad = %v Zähne

Hinterrad = %v Zähne

A = Intersect(xAxis, yAxis)
P = 42 (slider from 42 to 52, step 10)
H = 24 (slider from 14 to 24, step 2)
B = Point(xAxis)
p_1 = 3
p_2 = 3.4
h_1 = 1
h_2 = 1.2
h_3 = 1.4
h_4 = 1.6
h_5 = 1.8
h_6 = 2
c = Circle(A, h_1)
d = Circle(A, h_2)
e = Circle(A, h_3)
f = Circle(A, h_4)
g = Circle(A, h_5)
h = Circle(A, h_6)
k = Circle(B, p_1)
p = Circle(B, p_2)
P_1 = Sequence(Vector[(x(B) + p_1 * cos(k * π / 21), y(B) + p_1 * sin(k * π / 21)), (x(B) + (p_1 + 0.3) * cos(k * π / 21), y(B) + (p_1 + 0.3) * sin(k * π / 21))], k, 0, 41)
D, E = Intersect(c, yAxis)
a = OrthogonalLine(B, xAxis)
C, F = Intersect(k, a)
b = Line(E, F)
G = Intersect(b, xAxis)
q = Semicircle(G, B)
I = Intersect(q, k)
r = Semicircle(G, A)
J = Intersect(c, r)
i = Segment(J, I)
J' = Mirror(J, xAxis)
I' = Mirror(I, xAxis)
i' = Segment(J', I')
K = Intersect(c, i', 1)
L = Intersect(k, i', 1)
s = CircleArc(A, J, J')
t = CircleArc(B, I', I)
O, Q = Intersect(d, yAxis)
M = Intersect(k, a, 2)
j = Line(M, Q)
N = Intersect(j, xAxis)
c_1 = Semicircle(N, A)
d_1 = Semicircle(N, B)
R = Intersect(d, c_1, 1)
S = Intersect(k, d_1, 1)
l = Segment(R, S)
R' = Mirror(R, xAxis)
S' = Mirror(S, xAxis)
l' = Segment(R', S')
e_1 = CircleArc(A, R, O)
f_1 = CircleArc(B, S', S)
T = Intersect(e, yAxis, 2)
m = Line(M, T)
U = Intersect(m, xAxis)
g_1 = Semicircle(U, A)
k_1 = Semicircle(U, B)
Z = Intersect(f, yAxis, 1)
a_1 = Line(M, Z)
A_1 = Intersect(a_1, xAxis)
q_1 = Semicircle(A_1, A)
r_1 = Semicircle(A_1, B)
B_1 = Intersect(f, q_1, 1)
C_1 = Intersect(k, r_1, 1)
b_1 = Segment(B_1, C_1)
D_1 = Mirror(B_1, xAxis)
E_1 = Mirror(C_1, xAxis)
i_1 = Segment(D_1, E_1)
c_2 = CircleArc(A, B_1, D_1)
d_2 = CircleArc(B, E_1, C_1)
V = Intersect(e, yAxis, 1)
n = Line(M, V)
W = Intersect(n, xAxis)
s_1 = Semicircle(W, A)
t_1 = Semicircle(W, B)
F_1 = Intersect(e, s_1, 1)
G_1 = Intersect(k, t_1, 1)
j_1 = Segment(F_1, G_1)
I_1 = Mirror(F_1, xAxis)
J_1 = Mirror(G_1, xAxis)
l_1 = Segment(I_1, J_1)
e_2 = CircleArc(A, F_1, I_1)
f_2 = CircleArc(B, J_1, G_1)
K_1 = Intersect(g, yAxis, 2)
m_1 = Line(M, K_1)
L_1 = Intersect(m_1, xAxis)
g_2 = Semicircle(L_1, A)
k_2 = Semicircle(L_1, B)
R_1 = Intersect(h, yAxis, 2)
b_2 = Line(M, R_1)
S_1 = Intersect(b_2, xAxis)
s_2 = Semicircle(S_1, A)
t_2 = Semicircle(S_1, B)
Z_1 = Intersect(p, a, 2)
A_2 = Intersect(c, yAxis, 2)
l_2 = Line(Z_1, A_2)
B_2 = Intersect(l_2, xAxis)
e_3 = Semicircle(B_2, A)
f_3 = Semicircle(B_2, B)
C_2 = Intersect(c, e_3, 1)
D_2 = Intersect(p, f_3, 1)
m_2 = Segment(C_2, D_2)
E_2 = Mirror(C_2, xAxis)
F_2 = Mirror(D_2, xAxis)
n_2 = Segment(E_2, F_2)
g_3 = CircleArc(A, C_2, E_2)
k_3 = CircleArc(B, F_2, D_2)
G_2 = Intersect(d, yAxis, 2)
a_3 = Line(Z_1, G_2)
I_2 = Intersect(a_3, xAxis)
p_3 = Semicircle(I_2, A)
q_3 = Semicircle(I_2, B)
J_2 = Intersect(d, p_3, 1)
K_2 = Intersect(p, q_3, 1)
b_3 = Segment(J_2, K_2)
L_2 = Mirror(J_2, xAxis)
M_2 = Mirror(K_2, xAxis)
i_3 = Segment(L_2, M_2)
r_3 = CircleArc(A, J_2, L_2)
s_3 = CircleArc(B, M_2, K_2)
N_2 = Intersect(e, yAxis, 1)
j_3 = Line(Z_1, N_2)
O_2 = Intersect(j_3, xAxis)
t_3 = Semicircle(O_2, A)
c_4 = Semicircle(O_2, B)
Q_2 = Intersect(e, t_3, 1)
R_2 = Intersect(p, c_4, 1)
l_3 = Segment(Q_2, R_2)
S_2 = Mirror(Q_2, xAxis)
T_2 = Mirror(R_2, xAxis)
m_3 = Segment(S_2, T_2)
d_4 = CircleArc(A, Q_2, S_2)
e_4 = CircleArc(B, T_2, R_2)
U_2 = Intersect(f, yAxis, 1)
n_3 = Line(Z_1, U_2)
V_2 = Intersect(n_3, xAxis)
f_4 = Semicircle(V_2, A)
g_4 = Semicircle(V_2, B)
W_2 = Intersect(f, f_4, 1)
Z_2 = Intersect(p, g_4, 1)
a_4 = Segment(W_2, Z_2)
A_3 = Mirror(W_2, xAxis)
B_3 = Mirror(Z_2, xAxis)
b_4 = Segment(A_3, B_3)
k_4 = CircleArc(A, W_2, A_3)
p_4 = CircleArc(B, B_3, Z_2)
C_3 = Intersect(g, yAxis, 2)
i_4 = Line(Z_1, C_3)
D_3 = Intersect(i_4, xAxis)
q_4 = Semicircle(D_3, A)
r_4 = Semicircle(D_3, B)
J_3 = Intersect(h, yAxis, 2)
m_4 = Line(Z_1, J_3)
K_3 = Intersect(m_4, xAxis)
c_5 = Semicircle(K_3, A)
d_5 = Semicircle(K_3, B)
L_3 = Intersect(h, c_5, 1)
M_3 = Intersect(h, yAxis, 1)
n_4 = Line(Z_1, M_3)
O_3 = Intersect(n_4, xAxis)
e_5 = Semicircle(O_3, A)
f_5 = Semicircle(O_3, B)
P_3 = Intersect(h, e_5, 1)
Q_3 = Intersect(p, f_5, 1)
a_5 = Segment(P_3, Q_3)
R_3 = Mirror(P_3, xAxis)
S_3 = Mirror(Q_3, xAxis)
b_5 = Segment(R_3, S_3)
g_5 = CircleArc(A, P_3, R_3)
k_5 = CircleArc(B, S_3, Q_3)
Text1: "" + H + ""
Text2: "" + P + ""
E_3 = Intersect(g, yAxis, 1)
j_4 = Line(Z_1, E_3)
F_3 = Intersect(j_4, xAxis)
s_4 = Semicircle(F_3, A)
t_4 = Semicircle(F_3, B)
G_3 = Intersect(g, s_4, 1)
I_3 = Intersect(p, t_4, 1)
l_4 = Segment(G_3, I_3)
N_3 = Mirror(G_3, xAxis)
T_3 = Mirror(I_3, xAxis)
i_5 = Segment(N_3, T_3)
p_5 = CircleArc(A, G_3, N_3)
q_5 = CircleArc(B, T_3, I_3)
M_1 = Intersect(k, a, 2)
N_1 = Intersect(g, yAxis, 1)
n_1 = Line(M_1, N_1)
O_1 = Intersect(n_1, xAxis)
q_2 = Semicircle(O_1, A)
r_2 = Semicircle(O_1, B)
Q_1 = Intersect(g, q_2, 1)
U_3 = Intersect(k, r_2, 1)
a_2 = Segment(Q_1, U_3)
V_3 = Mirror(Q_1, xAxis)
W_3 = Mirror(U_3, xAxis)
j_5 = Segment(V_3, W_3)
r_5 = CircleArc(A, Q_1, V_3)
s_5 = CircleArc(B, W_3, U_3)
T_1 = Intersect(h, yAxis, 1)
i_2 = Line(M_1, T_1)
U_1 = Intersect(i_2, xAxis)
c_3 = Semicircle(U_1, A)
d_3 = Semicircle(U_1, B)
V_1 = Intersect(h, c_3, 1)
W_1 = Intersect(k, d_3, 1)
j_2 = Segment(V_1, W_1)
Z_3 = Mirror(V_1, xAxis)
A_4 = Mirror(W_1, xAxis)
l_5 = Segment(Z_3, A_4)
t_5 = CircleArc(A, V_1, Z_3)
c_6 = CircleArc(B, A_4, W_1)
gang_1: P ≟ 42 ∧ H ≟ 14
gang_2: P ≟ 42 ∧ H ≟ 16
gang_3: P ≟ 42 ∧ H ≟ 18
gang_4: P ≟ 42 ∧ H ≟ 20
gang_5: P ≟ 42 ∧ H ≟ 22
gang_6: P ≟ 42 ∧ H ≟ 24
gang_7: P ≟ 52 ∧ H ≟ 14
gang_8: P ≟ 52 ∧ H ≟ 16
gang_9: P ≟ 52 ∧ H ≟ 18
gang_A: P ≟ 52 ∧ H ≟ 20
gang_B: P ≟ 52 ∧ H ≟ 22
gang_C: P ≟ 52 ∧ H ≟ 24
H_1 = Sequence(Vector[((h_1 + 0) * cos(k * π / 7), (h_1 + 0) * sin(k * π / 7)), ((h_1 + 0.25) * cos(k * π / 7), (h_1 + 0.25) * sin(k * π / 7))], k, 0, 13)
H_2 = Sequence(Vector[((h_2 + 0) * cos(k * π / 8), (h_2 + 0) * sin(k * π / 8)), ((h_2 + 0.25) * cos(k * π / 8), (h_2 + 0.25) * sin(k * π / 8))], k, 0, 15)
H_3 = Sequence(Vector[((h_3 + 0) * cos(k * π / 9), (h_3 + 0) * sin(k * π / 9)), ((h_3 + 0.25) * cos(k * π / 9), (h_3 + 0.25) * sin(k * π / 9))], k, 0, 17)
H_4 = Sequence(Vector[((h_4 + 0) * cos(k * π / 10), (h_4 + 0) * sin(k * π / 10)), ((h_4 + 0.25) * cos(k * π / 10), (h_4 + 0.25) * sin(k * π / 10))], k, 0, 19)
H_5 = Sequence(Vector[((h_5 + 0) * cos(k * π / 11), (h_5 + 0) * sin(k * π / 11)), ((h_5 + 0.25) * cos(k * π / 11), (h_5 + 0.25) * sin(k * π / 11))], k, 0, 21)
H_6 = Sequence(Vector[((h_6 + 0) * cos(k * π / 12), (h_6 + 0) * sin(k * π / 12)), ((h_6 + 0.25) * cos(k * π / 12), (h_6 + 0.25) * sin(k * π / 12))], k, 0, 23)
m_5 = Segment(A, B)
P_2 = Sequence(Vector[(x(B) + p_2 * cos(k * π / 26), y(B) + p_2 * sin(k * π / 26)), (x(B) + (p_2 + 0.3) * cos(k * π / 26), y(B) + (p_2 + 0.3) * sin(k * π / 26))], k, 0, 51)
Text3: "" + (If[P ≟ 42, 34 - (P + H) / 2, 45 - (P + H) / 2]) + ".Gang - Übersetzung  " + P + " : " + H + ""