球体滚动演示

GeoGebra 命令及参数

1. Intersect(xAxis, yAxis) → E
2. Polygon(E, F, n) → poly1, d, m, q, r, G, H, I, J, K, L, M, e, N, O, P, f, g, h, i, j, k, l
3. Point(poly1, p) → A
4. Element(pos, Length[pos] - 1) → B
5. OrthogonalLine(B + (0, 0, 1), Segment[B + (0, 0, 1), C], xOyPlane) → a
6. Rotate((0, 0, 0), (-Distance[B, A]), a) → D
7. Line((0, 0, 1), a) → b
8. Rotate(sp, (-Distance[B, A]), b) → sp'
9. Translate(sp', Vector[A]) → sp''
10. Sphere(C, 1) → c