凯莉·基尔斯利相交平面

GeoGebra 命令及参数

1. Point(Circle[A, 5]) → B
2. Polygon(A, B, C, D) → q1, a, b, c, d
3. Point(Circle[E, Segment[A, B]]) → F
4. Rotate(F + (Segment[B, C], 0), Angle[C - B] + Angle[F - E] - Angle[B - A], F) → G
5. Rotate(G + (Segment[C, D], 0), Angle[D - C] + Angle[G - F] - Angle[C - B], G) → H
6. Polygon(E, F, G, H) → q2, e, f, g, h
7. Point(Circle[K, Segment[E, F]]) → L
8. Rotate(L + (Segment[F, G], 0), Angle[G - F] + Angle[L - K] - Angle[F - E], L) → M
9. Rotate(M + (Segment[G, H], 0), Angle[H - G] + Angle[M - L] - Angle[G - F], M) → N
10. Polygon(K, L, M, N) → q3, k, l, m, n
11. Point(Circle[P, Segment[A, B]]) → Q
12. Rotate(Q + (Segment[B, C], 0), Angle[C - B] + Angle[Q - P] - Angle[B - A], Q) → R
13. Rotate(R + (Segment[C, D], 0), Angle[D - C] + Angle[R - Q] - Angle[C - B], R) → S
14. Polygon(P, Q, R, S) → q4, p, q, r, s
15. Point(Circle[T, Segment[A, B]]) → U
16. Rotate(U + (Segment[B, C], 0), Angle[C - B] + Angle[U - T] - Angle[B - A], U) → V
17. Rotate(V + (Segment[C, D], 0), Angle[D - C] + Angle[V - U] - Angle[C - B], V) → W
18. Polygon(T, U, V, W) → q5, t, u, v, w
19. Point(Circle[Z, Segment[A, B]]) → A_1
20. Rotate(A_1 + (Segment[B, C], 0), Angle[C - B] + Angle[A_1 - Z] - Angle[B - A], A_1) → B_1
21. Rotate(B_1 + (Segment[C, D], 0), Angle[D - C] + Angle[B_1 - A_1] - Angle[C - B], B_1) → C_1
22. Polygon(Z, A_1, B_1, C_1) → q6, z_1, a_1, b_1, c_1