函数轨迹与几何作图艺术

GeoGebra 命令及参数

1. Segment(A_{1}, B_{1}) → f
2. Segment(B_{1}, C_{1}) → g
3. Segment(C_{1}, D) → h
4. Segment(D, A_{1}) → i
5. Point(l1) → A
6. Point(l1) → C
7. Point(l1) → B
8. Polygon(A, B, C) → t1, f_1, e, g_1
9. If(x(A) ≟ 0, Distance[D, A], y(A) ≟ 4, 4 + Distance[A_{1}, A], x(A) ≟ 4, 8 + Distance[B_{1}, A], y(A) ≟ 0, 12 + Distance[C_{1}, A]) → dE
10. If(x(C) ≟ 0, Distance[D, C], y(C) ≟ 4, 4 + Distance[A_{1}, C], x(C) ≟ 4, 8 + Distance[B_{1}, C], y(C) ≟ 0, 12 + Distance[C_{1}, C]) → dF
11. If(x(B) ≟ 0, Distance[D, B], y(B) ≟ 4, 4 + Distance[A_{1}, B], x(B) ≟ 4, 8 + Distance[B_{1}, B], y(B) ≟ 0, 12 + Distance[C_{1}, B]) → dG