等分数 by Michael Karpman

GeoGebra 命令及参数

1. GCD(n_1, d_1) → h
2. Segment(A, B) → a
3. RandomNormal(2, 4) → c
4. RandomBinomial(2, 3) → b
5. Binomial(4, 2) → d
6. Sequence((x(D) + (i * a / d_1), y(D)), i, 0, d_1) → Pointbas
7. Sequence((x(A) + (i * a / d_1), y(A)), i, 0, d_1) → Pointhaut
8. Sequence(Segment[Element[Pointhaut, i], Element[Pointbas, i]], i, 1, d_1 + 1) → liste1
9. Polygon(A, B, C, D) → Total, a_2, b_1, c_1, d_4
10. Polygon(A, D, Element[Pointbas, n_1 + 1], Element[Pointhaut, n_1 + 1]) → Morceau, a_1, d_3, i, j
11. Polygon(E, F, H, G) → poly1, e, f_1, h_1, g_1
12. Sequence((x(G) + (i * e / (d_1 / h)), y(G)), i, 0, d_1 / h) → L2
13. Sequence((x(E) + (i * e / (d_1 / h)), y(E)), i, 0, d_1 / h) → L3
14. Sequence(Segment[Element[L3, i], Element[L2, i]], i, 1, d_1 / h + 1) → liste2
15. Polygon(E, G, Element[L2, n_1 / h + 1], Element[L3, n_1 / h + 1]) → poly2, e_1, g, f, k
16. Line(A, yAxis) → l
17. If((h * h) ≟ 1, 0, 5) → Vitesse
18. GCD(n_1, d_1) → h_2
19. GCD(n_1, d_1) → h_3
20. GCD(n_1, d_1) → h_4