过顶点与垂心的圆

GeoGebra 命令及参数

1. Polygon(A, B, C) → t1, c, a, b
2. OrthogonalLine(A, a) → f
3. OrthogonalLine(B, b) → g
4. OrthogonalLine(C, c) → h
5. Intersect(f, g) → H
6. Intersect(h, c) → F
7. Intersect(f, a) → D
8. Intersect(g, b) → E
9. Segment(H, F) → i
10. Segment(H, D) → j
11. Segment(H, E) → k
12. Circle(B, A, C) → d
13. Line(A, B) → l
14. Line(B, C) → m
15. Line(C, A) → p
16. Center(d) → O
17. If(n < 1, Translate[d, (n * (H - A))], If[n ≥ 1, Translate[d, H - A]]) → e
18. If(2 ≤ n < 3, Translate[d, ((n - 2) * (H - B))], If[n ≥ 3, Translate[d, H - B]]) → q
19. If(4 ≤ n < 5, Translate[d, ((n - 4) * (H - C))], If[n ≥ 5, Translate[d, H - C]]) → r
20. Center(e) → G
21. Center(q) → I
22. Center(r) → J
23. If(6 ≤ n < 7, Translate[d, ((n - 6) * (H - O))], If[n ≥ 7, Translate[d, H - O]]) → s
24. Center(s) → K