雏菊：分数的化身 by Daniel Mentrard

GeoGebra 命令及参数

1. Circle(A, R) → c
2. Point(c) → B
3. Rotate(B, 1.0471975511965976, A) → H
4. Rotate(B, 0.5236, A) → G
5. Midpoint(G, H) → C
6. Midpoint(C, H) → I
7. CircumcircleArc(D, E, F) → d_1
8. CircumcircleArc(B, G, H) → e
9. Segment(B, D) → a
10. Segment(H, F) → b
11. Sequence(Rotate[liste1, ((i * 2) * π / 6), A], i, 0, 6) → liste2
12. Midpoint(E, G) → J
13. Midpoint(J, G) → K
14. Text(Element[listnum, Numérateur]) → texte1
15. Text(Element[listden, Dénominateur]) → texte2
16. Rotate(K, -1.0471975511965976, A) → K'
17. Rotate(K, 1.0471975511965976, A) → K'_1
18. Rotate(K, 2.0943951023931953, A) → M
19. Circle(L, R / 1.5) → f
20. Sequence(Rotate[N, ((i * 2) * π / Dénominateur), L], i, 0, Dénominateur) → liste3
21. Sequence(Segment[L, Element[liste3, i]], i, 1, Length[liste3]) → liste4
22. Rotate(L, 1.0471975511965976, A) → P
23. Sequence(Q + (0, 1) + (i * Vector[Q, O] / Dénominateur), i, 0, Dénominateur) → liste6
24. Polygon(S, T, O, Q) → poly1, s, t, o, q
25. Sequence(Q + (i * Vector[Q, O] / Dénominateur), i, 0, Dénominateur) → liste5
26. Sequence(Segment[Element[liste5, i], Element[liste6, i]], i, 1, Length[liste6]) → liste7
27. Polygon(Q, Element[liste5, Numérateur + 1], Element[liste6, Numérateur + 1], S) → poly2, h, i, l, m
28. Rotate(P, 1.0471975511965976, A) → P'
29. Sequence(Z + (0, 0.2) + (i * Vector[Z, W] / Dénominateur), i, 0, Dénominateur) → liste8
30. Sequence(Z - (0, 0.2) + (i * Vector[Z, W] / Dénominateur), i, 0, Dénominateur) → liste9
31. Segment(Z, W) → j
32. Sequence(Segment[Element[liste8, i], Element[liste9, i]], i, 1, Length[liste8]) → liste10
33. Segment(Z, Z + (Numérateur * Vector[Z, W] / Dénominateur)) → k
34. CircleSector(L, N, Element[liste3, Numérateur + 1]) → g
35. Segment(A - (0.75, 0), A + (0.75, 0)) → p
36. Circle(A, R) → r
37. Text(Element[listnumang, Numérateur]) → texte9
38. Text(Element[lisdenang, Dénominateur]) → texte10