平行线错觉演示

GeoGebra 命令及参数

1. Circle(O, Meg + a) → e_2
2. Line(O, yAxis) → e
3. Line(O, xAxis) → g
4. Intersect(e_2, e) → B, C
5. Intersect(e_2, g) → D, E
6. Polygon(B, E, C, D) → πολύγ1, w, s, z, v
7. Polygon(A, F, G, H) → πολύγ1_1, a_1, f, g_1, h_1
8. Sequence(Circle[O, Meg + k], k, -a, a + 0.5, a / d) → λίστα2
9. Sequence(y = k, k, 1, i, j) → λίστα1
10. Sequence(x = k, k, 1, i, j) → λίστα3
11. Point(xAxis) → Q
12. Polygon(I, V, W, J) → πολύγ2, i_1, v_1, w_1, j_1
13. Vector(J, W) → u
14. Sequence(Polygon[Translate[I, Vector[2 * k * u]], Translate[V, Vector[2 * k * u]], Translate[W, Vector[2 * k * u]], Translate[J, Vector[2 * k * u]]], k, 1, 60, 1) → λίστα4
15. Polygon(K, B_1, A_1, L) → πολύγ3, k, b_1, a_2, l
16. Sequence(Polygon[Translate[K, Vector[2 * k * u]], Translate[B_1, Vector[2 * k * u]], Translate[A_1, Vector[2 * k * u]], Translate[L, Vector[2 * k * u]]], k, 1, 60, 1) → λίστα5
17. Vector(C_1, D_1) → m
18. Sequence(Translate[λίστα4, Vector[2 * k * m]], k, 1, 60, 1) → λίστα6
19. Sequence(Translate[λίστα5, Vector[2 * k * m]], k, 1, 60, 1) → λίστα7
20. Point(λίστα5) → E_1
21. Point(λίστα5) → F_1
22. Vector(G_1, H_1) → p
23. Translate(λίστα6, Vector[n * p]) → λίστα6'
24. Translate(λίστα7, Vector[-n * p]) → λίστα7'
25. Line(L, A_1) → q
26. Sequence(Translate[q, Vector[k * m]], k, 1, 60, 1) → λίστα8