圆绕正方形旋转

GeoGebra 命令及参数

1. Rotate(If[Mod[t, 1] < 1 / (1 + ratio), ((Mod[t, 1] * (1 + ratio)), ((-2) * ratio / π)), (1, 0) + (((sin((((Mod[t, 1] * (1 + ratio)) - 1) * π / ((2 * ratio)))), (-cos((((Mod[t, 1] * (1 + ratio)) - 1) * π / ((2 * ratio)))))) * 2) * ratio / π)], (90° * floor(t)), (0.5, 0.5)) → CenterOfCircle
2. Polygon((0, 0), (1, 0), 4) → Square
3. Circle(CenterOfCircle, (2 * ratio / π)) → Circle
4. Circumference(Circle) → a
5. Perimeter(Square) → b
6. Locus(A, t) → Path
7. Sequence(CenterOfCircle + ((((-sin(turn + (w * π / 3))), cos(turn + (w * π / 3))) * 2) * ratio / π), w, 1, 5) → Spokes
8. Corner(5) → B
9. Textfield(ratio) → InputBox1