Rolling Circle

Zen Biker Maniac - 23 Sep 2006

No. Name Definition
1 Number t  
2 Number k If[t > 2.5, 0, If[t > 1.5, 2.5 - t, If[t > 1, 1, t]]]
3 Point O  
4 Point A Point on yAxis
5 Number Diameter Distance between O and A
6 Number Circumference π Diameter
7 Line f x = Circumference
8 Point D intersection point of f, xAxis
9 Vector u Vector[O, D]
10 Line h Bisector A, O
11 Point F intersection point of yAxis, h
12 Line a Line through A parallel to xAxis
13 Line b Bisector A, O
14 Point B Point F + u k
15 Line c Line through B parallel to yAxis
16 Point C intersection point of c, xAxis
17 Circle d Circle with center B through C
18 Segment e Segment[O, C]
19 Point E C rotated by angle 2 π (Circumference - e) / Circumference around B
20 Angle α Angle between C, B, E
21 Arc g CircularArc[B, C, E]
22 Segment i Segment[A, O]
Created with GeoGebra