比例可视化 by James Pearce

GeoGebra 命令及参数

1. Sequence(Curc[A + ((i * 0.55), 0)], i, 0, C - 1) → list1
2. Sequence(Translate[list1, Vector[(i * (0, 0.55))]], i, 0, rows - 1) → list2
3. Sequence(Polygon[B + ((i * 0.55), 0), B + ((i * 0.55) + 0.5, 0), 4], i, 0, S - 1) → list3
4. Sequence(Translate[list3, Vector[(i * (0, 0.55))]], i, 0, rows - 1) → list4
5. Textfield(C) → inputBox1
6. Textfield(S) → inputBox2
7. If(Row[B2] ≤ rows, (Row[B2] * S)) → B3
8. If(Row[B3] ≤ rows, (Row[B3] * S)) → B4
9. If(Row[B4] ≤ rows, (Row[B4] * S)) → B5
10. If(Row[B5] ≤ rows, (Row[B5] * S)) → B6
11. If(Row[B6] ≤ rows, (Row[B6] * S)) → B7
12. If(Row[B7] ≤ rows, (Row[B7] * S)) → B8
13. If(Row[B8] ≤ rows, (Row[B8] * S)) → B9
14. If(Row[B9] ≤ rows, (Row[B9] * S)) → B10
15. If(Row[B10] ≤ rows, (Row[B10] * S)) → B11
16. If(Row[B11] ≤ rows, (Row[B11] * S)) → B12
17. If(Row[B12] ≤ rows, (Row[B12] * S)) → B13
18. If(Row[B13] ≤ rows, (Row[B13] * S)) → B14
19. If(Row[B14] ≤ rows, (Row[B14] * S)) → B15
20. If(Row[B15] ≤ rows, (Row[B15] * S)) → B16
21. If(Row[B16] ≤ rows, (Row[B16] * S)) → B17
22. If(Row[B17] ≤ rows, (Row[B17] * S)) → B18
23. If(Row[B18] ≤ rows, (Row[B18] * S)) → B19
24. If(Row[B19] ≤ rows, (Row[B19] * S)) → B20
25. If(Row[B20] ≤ rows, (Row[B20] * S)) → B21
26. If(Row[B21] ≤ rows, (Row[B21] * S)) → B22
27. If(Row[B22] ≤ rows, (Row[B22] * S)) → B23
28. If(Row[B23] ≤ rows, (Row[B23] * S)) → B24
29. If(Row[B24] ≤ rows, (Row[B24] * S)) → B25
30. If(Row[B25] ≤ rows, (Row[B25] * S)) → B26
31. If(Row[B26] ≤ rows, (Row[B26] * S)) → B27
32. If(Row[B27] ≤ rows, (Row[B27] * S)) → B28
33. If(Row[B28] ≤ rows, (Row[B28] * S)) → B29
34. If(Row[B29] ≤ rows, (Row[B29] * S)) → B30
35. Max(6, y(A) + (0.55 * rows)) → ymax
36. If(Row[A2] ≥ rows, (Row[A2] * C)) → a
37. If(Row[A2] ≤ rows, (Row[A2] * C)) → A3
38. If(Row[A3] ≤ rows, (Row[A3] * C)) → A4
39. If(Row[A4] ≤ rows, (Row[A4] * C)) → A5
40. If(Row[A5] ≤ rows, (Row[A5] * C)) → A6
41. If(Row[A6] ≤ rows, (Row[A6] * C)) → A7
42. If(Row[A7] ≤ rows, (Row[A7] * C)) → A8
43. If(Row[A8] ≤ rows, (Row[A8] * C)) → A9
44. If(Row[A9] ≤ rows, (Row[A9] * C)) → A10
45. If(Row[A10] ≤ rows, (Row[A10] * C)) → A11
46. If(Row[A11] ≤ rows, (Row[A11] * C)) → A12
47. If(Row[A12] ≤ rows, (Row[A12] * C)) → A13
48. If(Row[A13] ≤ rows, (Row[A13] * C)) → A14
49. If(Row[A14] ≤ rows, (Row[A14] * C)) → A15
50. If(Row[A15] ≤ rows, (Row[A15] * C)) → A16
51. If(Row[A16] ≤ rows, (Row[A16] * C)) → A17
52. If(Row[A17] ≤ rows, (Row[A17] * C)) → A18
53. If(Row[A18] ≤ rows, (Row[A18] * C)) → A19
54. If(Row[A19] ≤ rows, (Row[A19] * C)) → A20
55. If(Row[A20] ≤ rows, (Row[A20] * C)) → A21
56. If(Row[A21] ≤ rows, (Row[A21] * C)) → A22
57. If(Row[A22] ≤ rows, (Row[A22] * C)) → A23
58. If(Row[A23] ≤ rows, (Row[A23] * C)) → A24
59. If(Row[A24] ≤ rows, (Row[A24] * C)) → A25
60. If(Row[A25] ≤ rows, (Row[A25] * C)) → A26
61. If(Row[A26] ≤ rows, (Row[A26] * C)) → A27
62. If(Row[A27] ≤ rows, (Row[A27] * C)) → A28
63. If(Row[A28] ≤ rows, (Row[A28] * C)) → A29
64. If(Row[A29] ≤ rows, (Row[A29] * C)) → A30
65. If(Row[A30] ≤ rows, (Row[A30] * C)) → A31
66. If(Row[A31] ≤ rows, (Row[A31] * C)) → A32
67. If(Row[B30] ≤ rows, (Row[B30] * S)) → B31
68. If(Row[B31] ≤ rows, (Row[B31] * S)) → B32