蜜蜂飞行 - 平行射线

GeoGebra 命令及参数

1. Line(B, C) → g
2. Point(g) → D
3. Vector(B, D) → u
4. Sequence(Point[B, Vector[(k * u)]], k, 0, 10) → sourcePoints
5. Sequence(OrthogonalLine[Element[sourcePoints, k], g], k, 1, 13) → rays
6. Point(rays) → A
7. Distance(B, D) → d_u
8. Point(rays) → E
9. Rotate(E, (-direction), A) → E'
10. Angle(E', A, E) → α
11. Sequence(Point[A, Vector[(k * v)]], k, 0, 10) → intersectionPoints
12. Sequence(Segment[Element[intersectionPoints, k], Element[intersectionPoints, k + 1]], k, 1, fly) → flightSegments
13. Element(intersectionPoints, fly) → P
14. Angle(Element[rays, fly], Element[flightSegments, fly]) → β
15. Vector(P, Point[P, v]) → w
16. UnitVector(v) → vv
17. Point(P, Vector[(0.6 * vv)]) → PP
18. Polygon(Corner[1], (x(Corner[1]) + (0.3 * Distance[Corner[1], Corner[2]]), y(Corner[1])), (x(Corner[4]) + (0.3 * Distance[Corner[1], Corner[2]]), y(Corner[4])), Corner[4]) → Left, a, b, c, d