链式反应的效果

GeoGebra 命令及参数

1. Circle((0, 0), (r^(N - 1) * h)) → c
2. CircleArc((0, 0), Rotate[(0, (r^(N - 1) * h)), (-angMax)], (0, (r^(N - 1) * h))) → arc
3. Point(arc) → M
4. UnitVector(Vector[Direction[Tangent[M, c]]]) → tanM
5. Sequence(If[k > N - 1, Polygon[(w(r, k), 0), (w(r, k) - (a * r^(k)), 0), (w(r, k) - (a * r^(k)), (h * r^(k))), (w(r, k), (h * r^(k)))], Rotate[Polygon[(w(r, k), 0), (w(r, k) - (a * r^(k)), 0), (w(r, k) - (a * r^(k)), (h * r^(k))), (w(r, k), (h * r^(k)))], ang(N - k), (w(r, k), 0)]], k, 0, n - 1) → dom
6. Sequence(Prism[Translate[dom(k), Vector[(0, 0, (((-an)) / 2 * r^(k - 1)))]], (an * r^(k - 1))], k, 1, n) → dom3D