旋转三角形 by cnardella

GeoGebra 命令及参数

1. Vector(B_1, X) → u
2. Vector(B_1, Y) → v
3. OrthogonalLine(view, yAxis) → a_1
4. OrthogonalLine(view, xAxis) → b
5. Vector(B_1, Z) → w
6. Sequence((x(A), y(A)) - (Radius * (((sin(0°) * sin(i°)) * w) + ((cos(0°) * sin(i°)) * u) - (cos(i°) * v))), i, 0, k, n) → liste2
7. Translate(A, Vector[(Height * w)]) → A'
8. Sequence(Polygon[A, Element[liste2, i], A'], i, 0, Rotate) → liste4
9. Polygon(A, A', Element[liste2, Rotate]) → poly1, i, a_2, a'
10. CurveCartesian(x(A - (Radius * (((0 * sin(i)) * w) + (sin(i) * u) - (cos(i) * v)))), y(A - (Radius * (((0 * sin(i)) * w) + (sin(i) * u) - (cos(i) * v)))), i, 0, 6.283185307179586) → e
11. Segment(A', A) → g_1