Lissajous曲线生成器

GeoGebra 命令及参数

1. Circle((0, 0), amplitud) → d
2. Point(d) → A
3. Segment((amplitud, 0), ((-amplitud), 0)) → diaH
4. Rotate(diaH, pi / 2) → diaV
5. Intersect(diaH, OrthogonalLine[A, diaH]) → Ax
6. Point(d) → B
7. Intersect(diaV, OrthogonalLine[B, diaV]) → By
8. PolyLine(reg) → pol
9. Polygon((((-amplitud), (-amplitud)) * 1.1), ((amplitud, (-amplitud)) * 1.1), ((amplitud, amplitud) * 1.1), (((-amplitud), amplitud) * 1.1)) → polígono1, polígono1_{2}, polígono1_{3}, polígono1_{4}, polígono1_{5}