3D向量与曲面绘制

GeoGebra 命令及参数

1. Surface(x(O) + ((R + (r * cos(i + t))) * cos(k)), y(O) + ((R + (r * cos(i + t))) * sin(k)), z(O) + (r * sin(i + t)), k, 0, (2 * π), i, 0, 6.28319) → d
2. Line(A, yAxis) → f
3. Join(Sequence[Sequence[(x(O) + ((R + (r * cos(i + t))) * cos(k)), y(O) + ((R + (r * cos(i + t))) * sin(k)), z(O) + (r * sin(i + t))), k, 0, (2 * π)], i, 0, 6.28319, (2 * π / n)]) → l2
4. Sequence(CurveCartesian[x(O) + ((R + (r * cos(i + t))) * cos(k)), y(O) + ((R + (r * cos(i + t))) * sin(k)), z(O) + (r * sin(i + t)), k, 0, (2 * π)], i, 0, 6.28319, (2 * π / n)) → l1
5. Sequence(Segment[Element[l2, i], Element[l2, i + k]], i, 1, Length[l2]) → l3