旋转线条

GeoGebra 命令及参数

1. Circle(A, 1) → c
2. Circle(B, 1) → d
3. Sequence(Rotate[D, π / 4 + b + (i * π / e), A], i, 0, e) → l1
4. Sequence(Line[A, Element[l1, i]], i, 1, e) → l2
5. Rotate(C, (h * b), B) → C'
6. Sequence(Rotate[D, ((-π)) / 2 - b - (i * π / e), A], i, 0, e) → l3
7. Line(B, C') → f
8. Sequence(Line[A, Element[l3, i]], i, 1, e) → l4
9. Sequence(Intersect[f, Element[l4, i]], i, 1, e) → l5
10. Sequence(Intersect[f, Element[l2, i]], i, 1, e) → l6