一种追踪斐波那契螺旋的方法

GeoGebra 命令及参数

1. Sequence(O + ((1 + ί) * (1 - q^(j)) / (1 - q)), j, 0, 50) → l3
2. Sequence(O + ((1 + ί) * (1 - q^(j)) / (1 - q)), j, 0, n) → liste1
3. CircleArc((1, 1), ((1 + ί) * (1 - ί / ϕ)), ((1 + ί) * (1 + ί / ϕ))) → c
4. Point(c) → A
5. Sequence(Polygon[liste1(k), liste1(k) + (liste1(k + 1) - liste1(k)) / (1 + ί), 4], k, 1, Length[liste1] - 1) → liste2
6. Circle((ϕ * (1 + ί)), sqrt(2)) → e
7. Point(e) → B
8. Element(l3, 50) → z_3
9. Take(liste2, 1, n) → l2
10. CurveCartesian(x(O) + real(((1 + ί) * (1 - q^(t)) / (1 - q))), y(O) + imaginary(((1 + ί) * (1 - q^(t)) / (1 - q))), t, 0, n) → a
11. Polygon(z_3, D, 4) → poly1, f, g, h, i, E, F
12. Segment(z_3, E) → j
13. Segment(G, H) → k
14. Midpoint(O, H) → J
15. Segment(I, C) → l
16. Sequence(Segment[Element[liste1, i], Element[liste1, i + 1]], i, 1, Length[liste1]) → l4
17. Segment(z_3, D) → m
18. Sequence(Polygon[Element[liste1, k], Element[liste1, k] + (Element[liste1, k + 1] - Element[liste1, k]) / (1 + ί), 4], k, 1, Length[liste1] - 1) → l1
19. Polygon(O, C, 4) → poly2, p, r, s, t, K, L
20. Rotate(O, π + abs(If[n < -3.14, (2 * n), (2 * 3.14)]), J) → O'
21. Segment(J, O') → b
22. CircleArc(J, O', O) → d
23. Polygon(K, I, H, C) → q1, k_1, i_1, h_1, c_1
24. If(-4.71 < n < -3.14, 0, If[n < -1.75, 2 - ((-2 * n)) / 3.14, 1]) → aa
25. Translate(L, Vector[(aa * Vector[L, H])]) → L'
26. Segment(L, L') → f_1
27. If(-4.71 < n ≤ -1.75, 0, If[n < -0.17, 1.11 - ((-2 * n)) / 3.14, 1]) → bb
28. Translate(I, Vector[(bb * Vector[I, C])]) → I'
29. Segment(I, I') → g_1
30. Angle(I, z_3, L) → α
31. Element(l1, A1) → B1
32. Element(l1, A2) → B2
33. Element(l1, A3) → B3
34. Element(l1, A4) → B4
35. Element(l1, A5) → B5
36. Element(l1, A6) → B6
37. Element(l1, A7) → B7
38. Element(l1, A8) → B8
39. Element(l1, A9) → B9
40. Element(l1, A10) → B10
41. Element(l1, A11) → B11
42. Element(l1, A12) → B12
43. Sequence(Angle[Element[liste1, i], Element[liste1, i + 1], Element[liste1, i + 2]], i, 1, Length[liste1]) → l5