百分比网格填充探索

GeoGebra 命令及参数

1. Point(Circle[A, 5]) → B
2. Polygon(A, B, 4) → poly1, b, c, d, e, C, D
3. Intersect(d, c) → N
4. Segment(A, B) → a
5. Intersect(c, a) → P
6. Dilate(N, 1 / part2, P) → N'
7. Dilate(B, 1 / part_1, A) → B_1
8. Line(A, B) → f
9. Point(f) → E
10. Segment(A, E) → g
11. Point(g) → F
12. Point(Circle[F, 5]) → G
13. Segment(F, G) → h
14. Polygon(F, G, 4) → poly2, i, j_1, k_1, l, H, I
15. Sequence(Segment[Translate[D, Vector[(i * Vector[A, B_1])]], Translate[A, Vector[(i * Vector[A, B_1])]]], i, 1, part_1 - 1) → list1
16. Dilate(H, 1 / part2, G) → H_1
17. Translate(A, Vector[(num_5 * Vector[A, B_1])]) → B_2
18. Translate(B_2, Vector[A, D]) → C_2
19. Translate(G, Vector[(num_2 * Vector[G, H_1])]) → H_2
20. Translate(H_2, Vector[G, F]) → I_2
21. Polygon(A, B_2, C_2, D) → poly3, a_1, b_2, c_2, d_1
22. Line(B_2, C_2) → j
23. Line(I_2, H_2) → k
24. Intersect(j, k) → S
25. If(Distance[A, F] < 0.01, true, false) → over
26. Segment(J, K) → m
27. Segment(L, M) → n
28. Intersect(a, b) → O
29. Sequence(Segment[Translate[A, Vector[(i * Vector[P, N'])]], Translate[P, Vector[(i * Vector[G, H_1])]]], i, 1, part2 - 1) → list2
30. Textfield(o) → inputBox1
31. Translate(P, Vector[(num_6 * Vector[P, N'])]) → N_2
32. Translate(N_2, Vector[P, B_2]) → Q
33. Point(Circle[Q, 0.5]) → R
34. Segment(Q, R) → p
35. Point(Circle[B_2, 0.5]) → T
36. Segment(B_2, T) → q
37. Polygon(Q, B_2, T, R) → poly6, q_1, b_3, t, r
38. Random(1, 100) → s