探索圆周率π：几何作图与近似值

GeoGebra 命令及参数

1. SpeechBubbleLeft(PBubbleStart, 9, 1.3) → bubble1
2. Polygon(A, B, C, D) → q1, a, b, c, d
3. Segment(E, F) → f
4. Segment(F, G) → g
5. Segment(G, H) → h
6. Segment(H, I) → i
7. Segment(I, J) → j
8. Segment(J, E) → k
9. SpeechBubbleLeft(PBubbleStart, 9.2, 1.8) → bubble2
10. Polygon(B1, B4, B3, B2) → q2, k_1, l, m, n
11. Sequence(Segment[(x(B2) - 0.2, i), (x(B2) + 0.2, i)], i, y(B2) + 0.5, y(B1) - 0.5, 0.5) → stricheStart
12. Sequence((x(B2) + 0.2, i), i, y(B2) + 0.5, y(B1) - 0.5, 0.5) → punkteStart
13. Polygon(K, L, M, N) → q3, k_2, l_1, m_1, n_1
14. Polygon(K_{1}, L_{1}, M_{1}, N_{1}) → q3_{1}, k_{3}, l_{2}, m_{2}, n_{2}
15. Midpoint(L, K_{1}) → S1
16. Midpoint(M, N_{1}) → S2
17. Sequence(Segment[(x(S2) - 0.3, i), (x(S2) + 0.3, i)], i, y(S2) + 0.5, y(S1) - 0.5, 0.5) → stricheOffen
18. Sequence((x(S2) + 0.3, i), i, y(S2) + 0.5, y(S1) - 0.5, 0.5) → punkteOffenRechts
19. Sequence((x(S2) - 0.3, i), i, y(S2) + 0.5, y(S1) - 0.5, 0.5) → punkteOffenLinks
20. Polygon(O, P, Q, R) → q4, o, p, q, r