加法之屋：用几何图形演示加法运算的互动范例

GeoGebra 命令及参数

1. Polygon(A, B, D, C) → poly1, a, b, d, c
2. Midpoint(a) → E
3. Midpoint(d) → F
4. Segment(E, F) → e
5. Segment(G, H) → f
6. Midpoint(G, C) → I
7. Midpoint(H, D) → J_2
8. Segment(I, J_2) → g
9. Midpoint(E, G) → K_1
10. Midpoint((6.901818181818182, 5.7290909090909095), E) → L
11. Midpoint(E, H) → M
12. Intersect(g, e) → N
13. Random(0, 9) → bb
14. Random(0, 9) → dd
15. Random(1, 9) → aa
16. Random(1, 9) → cc
17. Midpoint(G, N) → O
18. Midpoint(N, C) → P
19. Midpoint(N, D) → Q
20. Midpoint(H, N) → R
21. Midpoint(F, T) → U
22. Midpoint(F, S) → V
23. If(resu ≥ 10, resu - 10, resu) → res1
24. Segment(Z, W) → h
25. CircumcircleArc(A_1, B_1, C_1) → k
26. Vector(D_1, C_1) → u
27. If(resu ≥ 10, aa + cc + 1, aa + cc) → diz
28. Segment(C, D) → i
29. Segment(S, T) → j
30. Midpoint(j) → E_1
31. If(diz ≥ 10, diz - 10, diz) → diz1
32. Polygon(C, S, T, D) → poly2, c_1, s, t, d_1
33. Midpoint(j) → F_1
34. Segment(F, F_1) → l
35. Segment(C - (0.5, 0), D + (0.5, 0)) → m
36. Vector(G_1, H_1) → v
37. Sequence(K + (0, (-2 * i / 3)), i, 1, 10) → liste1
38. Sequence(J + (0, (-2 * i / 3)), i, 1, 10) → liste2
39. Sequence(Text[aa + (" + " * (i - 1)) + ((" = " * (aa + i - 1))), Element[liste2, i] - (0.75, 0)], i, 0, 11) → liste4
40. Sequence(Text[bb + (" + " * (i - 1)) + ((" = " * (bb + i - 1))), Element[liste1, i] - (0.85, 0)], i, 0, 11) → liste3
41. Vector(J_1 + (0.5, 0), J_1 - (0.25, 0)) → w
42. Vector(L_1, L_1 + (0.75, 0)) → z