矩形面积与周长恒定关系演示

GeoGebra 命令及参数

1. Line(A, B') → f
2. OrthogonalLine(A, f) → g
3. Point(g) → D'
4. Point(g) → D
5. Point(f) → B
6. Segment(A, B) → l
7. Segment(A, D) → b
8. UnitVector(Vector[A, B']) → u
9. UnitVector(Vector[A, D']) → v
10. Translate(A, Vector[(l_l * u)]) → B''
11. Segment(B, C) → h
12. Segment(C, D) → i
13. Midpoint(A, D) → M_{AD}
14. Midpoint(A, B) → M_{AB}
15. Translate(A, Vector[((-l_b) * v)]) → D''
16. Sequence((0, i), i, 0, -20, -1) → list1