2020年新年四连素数平方和

GeoGebra 命令及参数

1. Circle(O, 19) → e_1
2. If(tt ≥ 0, f2(tt), 0) → t
3. Circle(R, 17) → d_1
4. Intersect(d_1, e_1, 1) → W
5. Semicircle(M, O) → c
6. Semicircle(O, N) → d
7. Circle(M, 17) → e
8. Intersect(c, e, 1) → P
9. Polygon(R, W, 4) → poly5, g_1, h_1, i_1, j_1, Q, T
10. Polygon(W, O, 4) → poly6, f_1, k_1, l_1, m_1, S, U
11. Circle(O, 23) → p_1
12. Circle(E, 29) → f
13. Intersect(p_1, f, 1) → F
14. Polygon(F, E, 4) → poly1, g, h, i, j, G, H
15. Polygon(O, F, 4) → poly2, k, l, m, n, I, J
16. Angle(O, F, E) → β
17. Rotate(M, 90°, O) → M'
18. Polygon(N, M', 4) → poly3, p, q, r, s, K, L
19. Rotate(poly6, 90°, O) → poly6'
20. Rotate(poly5, 90°, O) → poly5'
21. Rotate(R, 90°, O) → R'
22. Segment(O, E) → a
23. Segment(O, R') → b
24. Angle(R', O, E) → δ
25. If(0 ≥ tt ≥ -0.5, Rotate[poly5, (f1(tt) * 90°)]) → q1
26. If(0 ≥ tt ≥ -0.5, Rotate[poly6, (f1(tt) * 90°)]) → q2
27. Rotate(W, 90°, O) → W'
28. Angle(R', W', O) → γ
29. Segment(B, D) → n_1