旋转多边形 by Patrick Clément (2)

GeoGebra 命令及参数

1. Append(First[{A, B, C, D, E, F, G, H, I, J, K, L}, n], A) → P
2. Sequence(Segment[Element[P, i], Element[P, i + 1]], i, 1, n) → seg
3. Append(Sequence[Point[Element[seg, i], p], i, 1, n], Point[Element[seg, 1], p]) → Pin
4. Sequence(Segment[Element[Pin, i], Element[Pin, i + 1]], i, 1, n) → segin
5. Append(Sequence[Line[Element[P, i + 1], Element[segin, i]], i, 1, n], Line[Element[P, 2], Element[segin, 1]]) → dte
6. Sequence(Intersect[Element[dte, i], Element[dte, i + 1]], i, 1, n) → Pout
7. Polygon(P) → poly1, , , ,
8. Polygon(Pin) → poly2, , , ,
9. Polygon(Pout) → poly3, , ,