旋转圆柱斜切得到正弦函数

GeoGebra 命令及参数

1. Line(O, zAxis) → f
2. Rotate(C, v, f) → C'
3. Rotate(E, v, f) → E'
4. Rotate(A, v, f) → A'
5. Segment(E', A') → l
6. Point(l) → F
7. Circle(O, R, f) → c
8. Cylinder(c, h) → a, d, b
9. Cylinder(c, h + 2) → e, g, i
10. Segment(E, A) → j
11. Plane(B, C', F) → p
12. IntersectPath(p, e) → k
13. Line(H, xAxis) → m
14. Line(G, H) → n
15. Intersect(n, k) → I,
16. Line(G, m) → q
17. Point(q) → J
18. Plane(H, G, J) → r
19. Line(F, B) → s
20. Intersect(s, k) → K, L
21. Mirror(F, f) → F'
22. Distance(F', K) → Amp
23. Sequence((x(O) + (R * cos(i)), y(O) + (R * sin(i)), z(O)), i, 0, (2 * π), (2 * π / n1)) → l1
24. Sequence((x(O) + (R * cos(i)), y(O) + (R * sin(i)), z(O) + h + 3), i, 0, (2 * π), (2 * π / n1)) → l2
25. Sequence(Segment[Element[l1, i], Element[l2, i]], i, 1, Length[l2]) → l3
26. Sequence(Intersect[p, Element[l3, i]], i, 1, Length[l3]) → l4
27. Sequence(Polygon[Element[l1, i], Element[l1, i + 1], Element[l4, i + 1], Element[l4, i]], i, 1, Length[l1]) → l5
28. CurveCartesian(x(H) + i, y(H), z(H) + (Amp / 2 * cos((R * i) - v)), i, 0, (4 * π)) → o
29. CurveCartesian(x(H) + i, y(H), z(H) - (Amp / 2 * cos((R * i) - v)), i, 0, (4 * π)) → t
30. Point(m) → M
31. Point(m) → N
32. Segment(N, M) → f_1
33. Point(n) → P
34. Intersect(n, xOyPlane) → Q
35. Segment(P, Q) → g_1
36. Sequence((x(H) + i, y(H), z(H) + (Amp / 2 * cos((R * i) - v))), i, 0, (4 * π), (4 * π / n1)) → l6
37. Sequence((x(G) + i, y(G), z(G)), i, 0, (4 * π), (4 * π / n1)) → l7
38. Sequence(Segment[Element[l6, i], Element[l7, i]], i, 1, Length[l7]) → l8
39. Sequence(Segment[Element[l7, i], Element[l7, i + 1]], i, 1, Length[l7]) → l9
40. Sequence((x(H) + i, y(H), z(H) - (Amp / 2 * cos((R * i) - v))), i, 0, (4 * π), (4 * π / n1)) → l10
41. Sequence(Segment[Element[l10, i], Element[l7, i]], i, 1, Length[l7]) → l11