螺旋风车

GeoGebra 命令及参数

1. Rotate(B, (720 * ° / N), A) → B'_3
2. Rotate(B, (-720 * ° / N), A) → B'_1
3. Segment(B'_3, B) → f
4. Segment(B, B'_1) → g
5. Point(Ray[A, Rotate[B, (180 * ° / N), A]]) → C
6. Mirror(C, Line[A, B]) → C'
7. Rotate(B, (360 * ° / N), A) → B'
8. Angle(B, C, B') → α
9. Angle(C, B, C') → β
10. Point(Segment[A, B]) → D
11. Polygon(B, C, D, C') → poly1, b, c, d, c'
12. Sequence(Polygon[Rotate[B, ((i * 360) * ° / N), A], Rotate[C, ((i * 360) * ° / N), A], Rotate[D, ((i * 360) * ° / N), A], Rotate[C', ((i * 360) * ° / N), A]], i, 1, N) → list1
13. Intersect(Line[A, B], Rotate[Line[B, C], (-0.5 * (360° - α - β)), C]) → D'
14. Sequence(Rotate[Dilate[list1, (Distance[B, C] / Distance[C, D] + bit)^(i), A], ((i * 180) * ° / N), A], i, ((-a) * M), M - 1) → list3