自制圣诞树

GeoGebra 命令及参数

1. Point(zAxis) → V
2. Point(Circle[O, r, Line[V, O]]) → C
3. Circle(O, r, Line[V, O]) → d
4. Vector(O, C) → w
5. Cone(O, V, r) → tree, c, e
6. CurveCartesian(x(V + (h * (O - V + (cos((30 * h)) * v) + (sin((30 * h)) * w)))), y(V + (h * (O - V + (cos((30 * h)) * v) + (sin((30 * h)) * w)))), z(V + (h * (O - V + (cos((30 * h)) * v) + (sin((30 * h)) * w)))), h, 0, draw) → a
7. Sequence(Circle[V + (h * Vector[V, O]), (r * h), Line[V, O]], h, 0, orCin, 0.1) → cinOr
8. Sequence(Segment[V, O + (cos(k) * v) + (sin(k) * w)], k, 0, verCin, pi / 12) → cinVert
9. Point(cinOr) → P1
10. Point(cinOr) → P2
11. Point(cinOr) → P3
12. Point(cinOr) → P4
13. Point(cinOr) → P5
14. Point(cinOr) → P6
15. Point(cinOr) → P7
16. Point(cinOr) → P8
17. Point(cinOr) → P9
18. Point(cinVert) → P10
19. Point(cinVert) → P11
20. Point(cinVert) → P12
21. Point(cinVert) → P13
22. Point(cinVert) → P14
23. Point(cinVert) → P15
24. Point(cinVert) → P16
25. Point(cinVert) → P17
26. Sphere(P8, light) → b
27. Sphere(P1, light) → f
28. Sphere(P2, light) → g
29. Sphere(P3, light) → h
30. Sphere(P4, light) → i
31. Sphere(P5, light) → j
32. Sphere(P6, light) → k
33. Sphere(P7, light) → l
34. Sphere(P8, light) → m
35. Sphere(P9, light) → n
36. Sphere(P10, light) → o
37. Sphere(P11, light) → p
38. Sphere(P12, light) → q
39. Sphere(P13, light) → s
40. Sphere(P14, light) → t
41. Sphere(P15, light) → a_1
42. Sphere(P16, light) → b_1
43. Sphere(P17, light) → c_1