Strecken a,b

a = true
n = 1.5
r = 5
beta = Sequence(asin(sin(10° * i) / n) * 180 / π, i, 0, 9)
O = (0, 0)
c = Circle(O, r)
j = 8 (slider from 0 to 10, step 1)
B1 = 10
C1 = 20
D1 = 30
E1 = 40
F1 = 50
G1 = 60
H1 = 70
I1 = 80
J1 = 90
B2 = 6.5
C2 = 13
D2 = 19.5
E2 = 25.5
F2 = 31
G2 = 35.5
H2 = 39
I2 = 41
J2 = 42
A1 = 0
L_1: {A1, B1, C1, D1, E1, F1, G1, H1, I1, J1}
P_1 = Sequence((r; (90 - Element[L_1, i])°), i, 1, j)
R_1 = Sequence(Segment[Element[P_1, i], O], i, 1, j)
S_1 = Sequence(Segment[Element[P_1, i], (0, y(Element[P_1, i]))], i, 1, j)
A2 = 0
L_2: {A2, B2, C2, D2, E2, F2, G2, H2, I2, J2}
P_2 = Sequence((r; (270 - Element[L_2, i])°), i, 1, j)
R_2 = Sequence(Segment[Element[P_2, i], O], i, 1, j)
S_2 = Sequence(Segment[Element[P_2, i], (0, y(Element[P_2, i]))], i, 1, j)
A3 = Element(S_1, 1)
B3 = Element(S_1, 2)
C3 = Element(S_1, 3)
D3 = Element(S_1, 4)
E3 = Element(S_1, 5)
F3 = Element(S_1, 6)
G3 = Element(S_1, 7)
H3 = Element(S_1, 8)
I3 = Element(S_1, 9)
J3 = Element(S_1, 10)
A4 = Element(S_2, 1)
B4 = Element(S_2, 2)
C4 = Element(S_2, 3)
D4 = Element(S_2, 4)
E4 = Element(S_2, 5)
F4 = Element(S_2, 6)
G4 = Element(S_2, 7)
H4 = Element(S_2, 8)
I4 = Element(S_2, 9)
J4 = Element(S_2, 10)
Q = Sequence(Element[S_1, i] / Element[S_2, i], i, 2, j)
B5 = Element(Q, 1)
C5 = Element(Q, 2)
D5 = Element(Q, 3)
E5 = Element(Q, 4)
F5 = Element(Q, 5)
G5 = Element(Q, 6)
H5 = Element(Q, 7)
I5 = Element(Q, 8)
K5: Sum[B5:I5] / 8
A: (A1, A2)
B: (B1, B2)
C: (C1, C2)
D: (D1, D2)
E: (E1, E2)
F: (F1, F2)
G: (G1, G2)
H: (H1, H2)
I: (I1, I2)
J: (J1, J2)
Punkte: {A, B, C, D, E, F, G, H, I, J}
f = FitPoly(Punkte, 6)
f_1 = Function(f, 0, 90)
J5 = Element(Q, 9)