Jurriaan Schrofer 矩形/圆形几何构造

GeoGebra 命令及参数

1. Line(A, B) → f
2. OrthogonalLine(B, f) → g
3. Point(g) → C
4. Point(Segment[A, D]) → E
5. Min({Distance[E, A], Distance[E, E + B - A] / 2, Distance[E, D]}) → a
6. Circle(E + ((a * (B - A))) / Distance[A, B], a) → c
7. Circle(D, A, B) → d
8. Intersect(d, Ray[G, G + D - C]) → H,
9. Rotate(Dilate[E, aspect, G], trn, G) → I
10. Rotate(H, trn, G) → H'
11. Rotate(Polygon[Dilate[A, aspect, G], Dilate[B, aspect, G], Dilate[C, aspect, G], Dilate[D, aspect, G]], trn, G) → poly2
12. Translate(poly2, Vector[I, H']) → poly2'
13. Polygon(A, B, C, D) → poly1, a_1, b, c_1, d_1
14. Vertex(poly2') → J, K, L, M
15. nxtlvl(J, K, L, H', trn) → F, N, O, poly3, P, e
16. nxtlvl(F, N, O, P, trn) → Q, R, S, poly4, T, h
17. nxtlvl(Q, R, S, T, trn) → U, V, W, poly5, Z, k