球体的部分表面

GeoGebra 命令及参数

1. Sphere((0, 0, 0), 1) → a
2. PointIn(a) → B
3. PointIn(a) → A
4. If(z(A) < 0, ((-(((Angle[A_0, (0, 0, 0), A, Plane[A, (0, 0, 0), A_0]] * 2) * π / 360)))) / °, (((Angle[A_0, (0, 0, 0), A, Plane[A, (0, 0, 0), A_0]] * 2) * π / 360)) / °) → aa1
5. If(z(B) < 0, ((-(((Angle[B_0, (0, 0, 0), B, Plane[B, (0, 0, 0), B_0]] * 2) * π / 360)))) / °, (((Angle[B_0, (0, 0, 0), B, Plane[B, (0, 0, 0), B_0]] * 2) * π / 360)) / °) → ab1
6. Segment(A_0, A) → c
7. Segment(B_0, B) → d
8. Min(aa1, ab1) → vb
9. Max(aa1, ab1) → ve
10. Segment(O, B) → h
11. Surface((cos(u) * cos(v)), (sin(u) * cos(v)), sin(v), u, aa0, aa0 + ab0, v, vb, ve) → b
12. Segment(A_0, O) → e
13. Segment(B_0, O) → f
14. Segment(O, A) → g
15. Angle(A, O, A_0) → α
16. Angle(B, O, B_0) → β
17. Angle((x(A), y(A)), (0, 0), (x(B), y(B))) → γ
18. Circle(zAxis, (1, 0, 0)) → k