旋转生成的球体

GeoGebra 命令及参数

1. Vector(1.1 * d * W_x) → u
2. Vector(1.1 * d * W_y) → v
3. Vector(1.1 * d * W_z) → w
4. Polygon(1.1 * d * (W_x + W_y), 1.1 * d * (-W_x + W_y), 1.1 * d * (-W_x - W_y), 1.1 * d * (W_x - W_y)) → poly1, g, h, i, j
5. Sequence(CurveCartesian[x(r * cos(0.157 * i) * W_z + r * sin(0.157 * i) * (cos(0.157 * j) * W_x + sin(0.157 * j) * W_y)), y(r * cos(0.157 * i) * W_z + r * sin(0.157 * i) * (cos(0.157 * j) * W_x + sin(0.157 * j) * W_y)), i, 0, 20], j, 0, p) → list3
6. Sequence(CurveCartesian[x(sqrt(r^(2) - i^(2)) * cos(0.157 * j) * W_x + sqrt(r^(2) - i^(2)) * sin(0.157 * j) * W_y + i * W_z), y(sqrt(r^(2) - i^(2)) * cos(0.157 * j) * W_x + sqrt(r^(2) - i^(2)) * sin(0.157 * j) * W_y + i * W_z), j, 0, p], i, 0, r, 1) → list1
7. Sequence(CurveCartesian[x(sqrt(r^(2) - i^(2)) * cos(0.157 * j) * W_x + sqrt(r^(2) - i^(2)) * sin(0.157 * j) * W_y - i * W_z), y(sqrt(r^(2) - i^(2)) * cos(0.157 * j) * W_x + sqrt(r^(2) - i^(2)) * sin(0.157 * j) * W_y - i * W_z), j, 0, p], i, 0, r, 1) → list2