n

Punkt

S = (0, 0)
A = Point(xAxis)
c = Semicircle(S, A)
A2 = 1
B2: x(A)
A3: A2 + 1.0
v = 0.3 (slider from 0 to 1, step 0.1)
B3: B2 - v * B2
A4: A3 + 1.0
B4: B3 - v * B3
A5: A4 + 1.0
B5: B4 - v * B4
A6: A5 + 1.0
B6: B5 - v * B5
A7: A6 + 1.0
B7: B6 - v * B6
A8: A7 + 1.0
B8: B7 - v * B7
A9: A8 + 1.0
B9: B8 - v * B8
A10: A9 + 1.0
B10: B9 - v * B9
A11: A10 + 1.0
B11: B10 - v * B10
C2 = 0
C3 = 0
C4 = 0
C5 = 0
C6 = 0
C7 = 0
C8 = 0
C9 = 0
C10 = 0
C11 = 0
P_1: (B3, C3)
P_2: (B4, C4)
P_3: (B5, C5)
P_4: (B6, C6)
P_5: (B7, C7)
P_6: (B8, C8)
P_7: (B9, C9)
P_8: (B10, C10)
P_9: (B11, C11)
P_{10}: (B2, C2)
P_{11}: (B3, C3)
P_{12}: (B4, C4)
P_{13}: (B5, C5)
P_{14}: (B6, C6)
P_{15}: (B7, C7)
P_{16}: (B8, C8)
P_{17}: (B9, C9)
P_{18}: (B10, C10)
P_{19}: (B11, C11)
Liste1: {P_{10}, P_{11}, P_{12}, P_{13}, P_{14}, P_{15}, P_{16}, P_{17}, P_{18}, P_{19}}
Liste2 = Sequence(Semicircle[Element[Liste1, i], Element[Liste1, i + 1.0]], i, 1.0, 9.0)
4: 3.0 - v * 3.0
Text1: "Umfang: u = " + (Sum[Liste2] + x(A) * 3.1415 / 2.0)