钝角测试

GeoGebra 命令及参数

1. Point(yAxis) → A
2. Point(yAxis) → B
3. Semicircle(A, B) → c
4. Point(c) → C
5. Point(c) → D
6. Intersect(c, xAxis, 1) → E
7. Point(c) → F
8. Point(c) → G
9. Polygon(A, H, 4) → poly1, f, g, h, i, I, J
10. Polygon(H, B, 4) → poly2, j, k, l, m, K, L
11. Polygon(B, A, 4) → poly3, n_{1}, p, q, r, M, N
12. OrthogonalLine(H, n_{1}) → s
13. Line(J, I) → t
14. Line(K, L) → a
15. Intersect(s, a) → O
16. Intersect(s, t) → P
17. If(0 ≤ n < 1, Polygon[Dilate[L, 1 - n, O], K + Dilate[L, 1 - n, O] - L, B, H], If[n ≥ 1, Polygon[O, H, B, K + O - L]]) → q2
18. If(2 ≤ n < 3, Translate[q2, ((n - 2) * (H - O))], Translate[q2, H - O]) → q1
19. Intersect(n_{1}, s) → Q
20. If(4 ≤ n < 5, Polygon[B + H - O, B, H + ((n - 4) * (Q - H)), H + ((n - 4) * (Q - H)) + H - O], If[n ≥ 5, Polygon[B, B + H - O, Q + H - O, Q]]) → q3
21. If(6 ≤ n < 7, Polygon[H, A, J + Dilate[I, 7 - n, P] - I, Dilate[I, 7 - n, P]], If[n ≥ 7, Polygon[A, H, P, J + P - I], Polygon[A, H, I, J]]) → q4
22. If(8 ≤ n < 9, Polygon[A + ((n - 8) * (H - P)), H + ((n - 8) * (H - P)), P + ((n - 8) * (H - P)), A + ((n - 8) * (H - P)) + P - H], If[n ≥ 9, Polygon[A, H, H + H - P, A + H - P]]) → q5
23. If(10 ≤ n ≤ 11, Polygon[A + H - P, A, H + ((n - 10) * (Q - H)), H + H - P + ((n - 10) * (Q - H))]) → q6