昆虫的飞行轨迹 - 从光源出发的径向光

GeoGebra 命令及参数

1. Intersect(xAxis, yAxis) → O
2. Sequence(Segment[O, ((10 * cos((i * α))), (10 * sin((i * α))))], i, 0, NumberRays - 1) → rays
3. Join({rays, rays, rays, rays}) → nrays
4. Length(nrays) → l
5. Point(rays) → A
6. Distance(O, A) → d
7. IterationList((x * k), d, l) → values
8. Sequence(Point[O, Vector[(UnitVector[Element[nrays, i]] * Element[values, i])]], i, 1, l) → points
9. Sequence(Segment[Element[points, i], Element[points, i + 1]], i, 1, fly) → segments
10. Polygon(Corner[1], (x(Corner[1]) + (0.25 * Distance[Corner[1], Corner[2]]), y(Corner[1])), (x(Corner[4]) + (0.25 * Distance[Corner[1], Corner[2]]), y(Corner[4])), Corner[4]) → poly1, e, f, g, h
11. UnitVector(Element[segments, fly]) → u
12. Polygon(B, C, 4) → poly2, b_1, c_1, i, j, D, E
13. Angle(Element[points, fly + 1], Element[points, fly], O) → β
14. CurveCartesian(((a * ℯ^((b * t))) * cos(t)), ((a * ℯ^((b * t))) * sin(t)), t, 0, end) → c
15. Element(points, fly) → P
16. Point(Element[points, fly], Vector[((0.8 * b_1) * u)]) → F