Wulff 画布：用球面与平面构造沃尔夫几何

GeoGebra 命令及参数

1. Sequence(Circle[(0, 1 / sin((k * π / ((2 * n_B))))), sqrt(1 / sin((k * π / ((2 * n_B))))^(2) - 1)], k, (-n_B), n_B) → cercles1
2. Sequence(CurveCartesian[(cos(φ) * sin(λ) / (1 + (cos(φ) * cos(λ)))), sin(φ) / (1 + (cos(φ) * cos(λ))), φ, -1.5708, 1.5708], λ, -1.5707963267948966, 1.5707963267948966, π / ((2 * n_L))) → Cercles2
3. Sphere(M, Nord) → a
4. Plane(M, Nord, Zero) → b
5. IntersectPath(b, a) → c
6. IntersectPath(xOyPlane, a) → d
7. OrthogonalPlane(Nord, xAxis) → e
8. IntersectPath(e, a) → f
9. PointIn(a) → P
10. Plane(P, Nord, M) → g
11. IntersectPath(g, a) → h
12. OrthogonalPlane(P, zAxis) → i
13. IntersectPath(i, a) → k
14. Ray(Zero, P) → j
15. Intersect(j, e) → P'
16. Segment(Zero, B) → l
17. Point(l) → W
18. CircumcircleArc(Zero, Nord, B) → p
19. Point(cercles1) → A
20. Segment(P, A) → m
21. Sequence(CurveCartesian[x(M) + (cos(i) * cos(j)), y(M) + (cos(i) * sin(j)), z(M) + sin(i), i, 0, π / 2], j, 0, (2 * π), (2 * π / 8)) → l1
22. Sequence(CurveCartesian[x(M) + (cos(i) * cos(j)), y(M) + (cos(i) * sin(j)), z(M) + sin(i), j, 0, (2 * π)], i, 0, (2 * π), π / 12) → l2
23. PointIn(a) → C
24. Segment(C, A) → n
25. Element(l2, 1) → o
26. Circle((0.018164476916503913, 0.003027412819417208), 1) → q
27. Circle((0, 0), 1) → r
28. OrthogonalLine(C, s) → t
29. Intersect(t, s) → E
30. Surface(x(M) + (cos(i) * cos(j)), y(M) + (cos(i) * sin(j)), z(M) + sin(i), i, 0, π, j, 0, π) → u
31. Segment(C, E) → f_1
32. Sequence(CurveCartesian[x(M) + (cos(i) * cos(j)), y(M) + (cos(i) * sin(j)), z(M) + sin(i), i, 0, (2 * π)], j, 0, π, (2 * π / 12)) → l3