托里卡立体

GeoGebra 命令及参数

1. Circle(B, C, A) → c
2. Sequence(k, k, 1, n) → L_n
3. Zip(Rotate[c, ((k * 2) * π / (n + 1))], k, L_n) → listecercles
4. Center(c) → M
5. Plane(A, B, C) → p
6. OrthogonalLine(M, p) → g
7. Line(M, B) → f
8. Zip(Rotate[B, ((k * 2) * π / (n + 1)), g], k, L_n) → listpoints
9. Zip(Circle[zAxis, P], P, listpoints) → listcurves
10. Center(c) → D
11. Segment(D, B) → f_1
12. Segment(D, E) → g_1
13. Surface(c, (2 * π), zAxis) → a
14. Circle(B, C, A) → d
15. Sequence(Intersect[p, Element[listcurves, i]], i, 1, Length[listcurves], 1) → l1