两极曲线间的面积

GeoGebra 命令及参数

1. CurveCartesian((f(t) * cos(t)), (f(t) * sin(t)), t, a, b) → c
2. Sequence(c(i), i, a, b, d) → l1, {(6.123233995736766E-17, -1)}
3. Sequence(Segment[(0, 0), Element[l1, i]], i, 1, n + 1) → l2, {1}
4. Textfield(a) → InputBox2
5. Textfield(b) → InputBox3
6. Sequence(Circle[(0, 0), Element[l2, i]], i, 1, n + 1) → l3, {x² + y² = 1}
7. Sequence(Sector[Element[l3, i + 1], a + (i * d), a + (i * d) + d], i, 0, n - 1) → l4, {}
8. Textfield(g) → InputBox4
9. Textfield(f) → InputBox1
10. Textfield(a) → InputBox5
11. Textfield(b) → InputBox6
12. CurveCartesian((g(t) * cos(t)), (g(t) * sin(t)), t, i, j) → e
13. Textfield(i) → InputBox7
14. Textfield(j) → InputBox8
15. Point(eq1) → A
16. CurveCartesian((f(t) * cos(t)), (f(t) * sin(t)), t, (-10 * π), (10 * π)) → l
17. CurveCartesian((g(t) * cos(t)), (g(t) * sin(t)), t, (-10 * π), (10 * π)) → m
18. If(abs(f(k)) ≤ abs(g(o)), Segment[B, D], Segment[B, C]) → p
19. Segment(C, D) → q
20. Segment(B, D) → s
21. Segment(B, C) → t