三角伞

GeoGebra 命令及参数

1. Sequence(Rotate[(1, 0), ((2 * π) * i / n), (0, 0)], i, 1, n) → list1
2. Sequence(Rotate[Segment[(0, 0), (1, 0)], ((2 * π) * i / s), (0, 0)], i, 0, s) → list2
3. Polygon(list1) → poly1
4. Sequence(Intersect[Element[list2, i], poly1], i, 1, s) → list3
5. Circle((0, 0), 1) → c
6. Sequence(Intersect[c, Element[list2, i]], i, 1, s) → list4
7. Midpoint(A, B) → C
8. Sequence(Vector[(trans * Vector[Element[list3, i], Element[list4, i]])], i, 1, s) → list5
9. Sequence(Translate[Element[list3, i], Vector[Element[list5, i]]], i, 1, s) → list6
10. Sequence(Rotate[Element[list6, i], rot, (0, 0)], i, 1, s) → list7
11. Sequence(Sequence[Dilate[Element[list7, i], j, (0, 0)], i, 1, s], j, 0.2, 2, 0.2) → list8
12. Length(list8) → a
13. Last(list8) → list9
14. Polygon(Element[list9, 1]) → poly2