二维向量加法演示 by Daniel Mentrard

GeoGebra 命令及参数

1. Vector(A, B) → u
2. Vector(C, D) → v
3. Translate(A, Vector[(If[a < 3, a / 3, 1] * Vector[A, E])]) → A'
4. Translate(B, Vector[(If[a < 3, a / 3, 1] * Vector[A, E])]) → B'
5. Vector(A', B') → w
6. Translate(C, Vector[(If[a ≤ 3, 0, If[3 < a < 6, (a - 3) / 3, 1]] * Vector[C, B'])]) → C'
7. Translate(D, Vector[(If[a ≤ 3, 0, If[3 < a < 6, (a - 3) / 3, 1]] * Vector[C, B'])]) → D'
8. Vector(C', D') → b
9. Translate(E, Vector[(If[a ≤ 6, 0, If[6 < a < 9, (a - 6) / 3, 1]] * Vector[E, D'])]) → E'
10. Vector(E, E') → c
11. Translate(A, Vector[(If[d < 3, d / 3, 1] * Vector[A, F])]) → A'_1
12. Translate(B, Vector[(If[d < 3, d / 3, 1] * Vector[A, F])]) → B'_1
13. Vector(A'_1, B'_1) → e
14. Translate(C, Vector[(If[d ≤ 3, 0, If[3 < d < 6, (d - 3) / 3, 1]] * Vector[C, A'_1])]) → C'_1
15. Translate(D, Vector[(If[d ≤ 3, 0, If[3 < d < 6, (d - 3) / 3, 1]] * Vector[C, A'_1])]) → D'_1
16. Vector(C'_1, D'_1) → f
17. Translate(B'_1, Vector[(If[d ≤ 6, 0, If[6 < d < 9, (d - 6) / 3, 1]] * Vector[C, D])]) → G
18. Translate(D'_1, Vector[(If[d ≤ 6, 0, If[6 < d < 9, (d - 6) / 3, 1]] * Vector[A, B])]) → H
19. Translate(C'_1, Vector[(If[d ≤ 6, 0, If[6 < d < 9, (d - 6) / 3, 1]] * Vector[C, D])]) → I
20. Translate(A'_1, Vector[(If[d ≤ 6, 0, If[6 < d < 9, (d - 6) / 3, 1]] * Vector[A, B])]) → J
21. Vector(J, H) → h
22. Vector(I, G) → g
23. Translate(F, Vector[(If[d ≤ 9, 0, If[9 < d < 12, (d - 9) / 3, 1]] * Vector[F, H])]) → K
24. Vector(F, K) → i
25. Midpoint(B, A) → L
26. Midpoint(C, D) → M
27. Midpoint(C', D') → N
28. Midpoint(B'_1, A'_1) → P
29. Midpoint(C'_1, D'_1) → Q
30. Midpoint(F, K) → R
31. Midpoint(B', A') → O
32. Midpoint(E, E') → S