分数估计

GeoGebra 命令及参数

1. Random(2, 15) → Denom2
2. Random(2, 15) → denom
3. Random(1, denom - 1) → num
4. Sequence(Rotate[B, ((i * 360) * ° / denom), A], i, 1, denom) → liste1
5. Sequence(Segment[A, Element[liste1, i]], i, 1, denom) → liste3
6. Rotate(B, ((num * 360) * ° / denom), A) → B'_1
7. CircleSector(A, B, B'_1) → d
8. Circle(A, B) → e
9. Circle(A, B) → c
10. Sequence(Segment[A, Element[liste1, i]], i, 1, denom) → liste2
11. Circle(A, B) → h
12. Segment(E, F) → i
13. Random(1, Denom2 - 1) → Num1
14. Segment(G, H) → j
15. Polygon(G, H, 4) → poly1, a, f, k, l, C, D
16. Sequence(G + ((i * a / Denom2), 0), i, 0, Denom2) → liste4
17. Sequence(D + ((i * a / Denom2), 0), i, 0, Denom2) → liste5
18. Sequence(Segment[Element[liste4, i], Element[liste5, i]], i, 1, Length[liste4]) → liste6
19. Point(l) → K
20. Polygon(D, J, I, K) → poly2, d_1, j_1, i_1, k_1
21. Textfield(n1) → ChampTexte1
22. Textfield(d1) → ChampTexte2
23. Textfield(n2) → ChampTexte3
24. Textfield(d2) → ChampTexte4
25. Segment(L, M) → m
26. Polygon(N, O, P, Q) → poly3, n_1, o, p, q
27. Polygon(R, S, T, U) → poly4, r, s, t, u