分数乘法 by Ethan Hall

GeoGebra 命令及参数

1. Max(0, abs(t) - 5) → nt
2. Min(nt, 100) → t1
3. Max(0, nt - 100) → t2
4. If(b, BA, AA) → C
5. If(b, 1, (den1 - ts * (den1 - en1)) / den1) → f1
6. Sequence(Segment[B, Rotate[B1, -f1 * 2 * π * i / den2, B]], i, 0, den2 - 1) → list2
7. CircleArc(B, Rotate[B1, -2 * π * f1, B], B1) → f
8. Segment(B, Rotate[B1, -2 * π * f1, B]) → a
9. CircleSector(B, Rotate[B1, -f1 * 2 * π * en2 / den2, B], B1) → d
10. Sequence(Segment[C, Rotate[C1, 2 * π * i / den3, C]], i, 1, den3 - 1) → list3
11. If(b, (den2 - ts * (den2 - en2)) / den2, 1) → f2
12. CircleSector(A, Rotate[A1, -f2 * 2 * π * en1 / den1, A], A1) → c
13. Sequence(Segment[A, Rotate[A1, -f2 * 2 * π * i / den1, A]], i, 0, den1 - 1) → list1
14. CircleArc(A, Rotate[A1, -2 * π * f2, A], A1) → e
15. Segment(A, Rotate[A1, -2 * π * f2, A]) → g