相似四边形探究

GeoGebra 命令及参数

1. Polygon(A, B, 4) → poly1, a, b, c, d, C, D
2. Line(A, B) → e
3. Point(e) → E
4. Ray(B, E) → f
5. Point(f) → F
6. Vector(B, C) → u
7. Translate(F, u) → F'
8. Point(f) → G
9. Ray(F, G) → g
10. Point(g) → H
11. Point(Circle[F, Distance[A, B]]) → I
12. Segment(F, I) → h
13. Translate(H, u) → H'
14. Segment(A, B) → i
15. Segment(D, A) → l
16. Circle(A, (0.2 * i)) → k
17. Intersect(k, i, 1) → J
18. Intersect(k, l, 1) → K
19. CircleSector(A, J, K) → p
20. Dilate(A, If[0 < j ≤ 1, 1 - j, 0], B) → A'
21. Dilate(A, If[0 < j ≤ 1, 1 - j, 0], C) → A'_1
22. Dilate(A, If[0 < j ≤ 1, 1 - j, 0], D) → A'_2
23. Dilate(A, If[0 < j ≤ 1, 1 - j, 0], F) → A'_3
24. Dilate(A, If[0 < j ≤ 1, 1 - j, 0], H) → A'_4
25. Dilate(A, If[0 < j ≤ 1, 1 - j, 0], H') → A'_5
26. Dilate(A, If[0 < j ≤ 1, 1 - j, 0], F') → A'_6
27. Vector(A, A') → v
28. Vector(A, A'_1) → w
29. Vector(A, A'_2) → m
30. Vector(A, A'_3) → n
31. Vector(A, A'_4) → q
32. Vector(A, A'_5) → r
33. Vector(A, A'_6) → s
34. Translate(p, m) → p'
35. Translate(p, s) → p'_2
36. Translate(p, v) → p'_4
37. Translate(p, q) → p'_5
38. Translate(p, n) → p'_6
39. Rotate(p', If[1 < j ≤ 2, (((j - 1) * 3) * π / 2), 4.71238898038469], D) → p''
40. Rotate(p'_4, If[1 < j ≤ 2, ((j - 1) * π / 2), 1.5707963267948966], B) → c_1
41. Rotate(p'_2, If[1 < j ≤ 2, (((j - 1) * 3) * π / 2), 4.71238898038469], F') → d_1
42. Rotate(p'_5, If[1 < j ≤ 2, ((j - 1) * π / 2), 1.5707963267948966], H) → f_1
43. Polygon(F, H, H', F') → poly2, f_2, h_1, h', f'