圆弧旋转

GeoGebra 命令及参数

1. CircumcircleArc(A, C, B) → c
2. Center(c) → D
3. OrthogonalLine(D, Plane[A, B, C]) → f
4. Segment(A, D) → g
5. Point(Ray[D, A]) → E
6. Line(A, f) → h
7. Point(h) → F
8. Angle(B, D, A) → b
9. If(Length[c] > (π * g), (2 * π) - Angle[B, D, A], Angle[B, D, A]) → d
10. Angle(B, D, A) → b'
11. Sequence(Rotate[Rotate[Polygon[{A, E, F}], ((-d) * i), f], (a * i), Tangent[Point[c, i], c]], i, 0, 1, 1 / n) → liste2