硬币旋转悖论

GeoGebra 命令及参数

1. Intersect(xAxis, yAxis) → A
2. Point(yAxis) → B
3. Circle(A, (Distance[A, B] * (ratio + 1) / ratio)) → d
4. Point(d) → C
5. Circle(C, Distance[A, B] / ratio) → e
6. Radius(e) → re
7. Line(A, C) → g
8. Circle(A, B) → c
9. Intersect(c, g, 2) → G
10. Angle(G, A, B) → q
11. If(b, Rotate[G, (-rq), C], G) → G_0
12. Angle(G_0, C, G) → α'
13. Rotate(G, π / 2 - If[b, rq, hq], C) → R
14. Rotate(G, (3 * π / 2) - If[b, rq, hq], C) → L
15. Segment(L, R) → f
16. Radius(d) → a
17. Radius(d) → rd