三维余弦函数的立体建模与旋转作图

GeoGebra 命令及参数

1. Circle(O, R, xAxis) → c
2. Rotate(A, (-t), xAxis) → A'
3. Segment(O, A') → f
4. Translate(c, Vector[O, B]) → c'
5. Segment(C, O') → g
6. Segment(D, O') → h
7. Sequence((i, ((-R) * cos(i)), 0), i, 0, t, (2 * π / Step)) → l1
8. Sequence((i, 0, 0), i, 0, t, (2 * π / Step)) → l2
9. Sequence(Segment[Element[l1, i], Element[l2, i]], i, 1, Length[l1]) → l3
10. Segment(O, E) → i
11. Segment(A', E) → k
12. Segment(E, O) → l
13. Midpoint(O, A) → F
14. Midpoint(O, F) → G
15. Midpoint(A', O) → H
16. Midpoint(H, O) → I
17. Rotate(G, ((-t)) / 2, xAxis) → G'
18. CircumcircleArc(G, G', I) → e
19. Segment(O, A) → m
20. Rotate(G, t / 2, xAxis) → G'_1
21. CircumcircleArc(G, G'_1, I) → p
22. Segment(D, C) → n_1
23. CurveCartesian(i, R, 0, i, 0, t) → b
24. CurveCartesian(i, (-R), 0, i, 0, t) → d
25. Segment(O - (0, R, 0), O + (0, R, 0)) → j
26. CurveCartesian(i, ((-R) * cos(i)), 0, i, 0, t) → a
27. Sequence(Rotate[Element[l3, i], (-(ang°)), xAxis], i, 1, Length[l1]) → l4
28. Rotate(a, (-(ang°)), xAxis) → a'
29. Sequence(Rotate[Element[l1, i], (-(ang°)), xAxis], i, 1, Length[l1]) → l5
30. Rotate(j, (-(ang°)), xAxis) → j'
31. Rotate(b, (-(ang°)), xAxis) → b'
32. Rotate(d, (-(ang°)), xAxis) → d'