G_8.04 解决直角三角形

GeoGebra 命令及参数

1. Ray(B, A) → f
2. Point(f) → D
3. Rotate(A, 90°, B) → A'
4. Ray(B, A') → g
5. Point(g) → E
6. Segment(D, E) → h
7. Segment(B, D) → i
8. Segment(B, E) → j
9. Angle(B, D, E) → β
10. Midpoint(D, E) → F
11. Midpoint(i) → G
12. Midpoint(j) → H
13. Angle(D, B, E) → γ
14. AngularBisector(h, i) → k, l
15. Circle(D, 0.6) → c
16. Intersect(c, l) → I, J
17. Angle(B, D, E) → δ
18. If(round(β, 1) ≟ a°, 1, 0) → b1
19. Circle(F, 0.8) → d
20. Circle(G, 0.8) → e
21. Circle(H, 0.5) → p
22. Point(d) → M
23. Point(e) → N
24. Point(p) → O
25. Text(text3, O, true, true, 0, 0) → text9
26. Text(text2, N, true, true, 0, -1) → text8
27. Text(text4, M, true, true, 1, 1) → text7
28. Point(c) → P
29. Point(d) → Q
30. Shuffle({0, 1, 2}) → trigFxn, {1, 0, 2}
31. Point(c) → R
32. Angle(D, B, E) → α
33. Point(k) → T
34. If(Show ≟ true, If[IsInRegion[Q, e], Text[text5, T, true, true, 0, 0], Text[text5, J, true, true, 1, 0]], If[IsInRegion[Q, e], Text[text12, T, true, true, 0, 0], Text[text12, J, true, true, 1, 0]]) → text10
35. If(IsInRegion[T, e], If[Show ≟ true, Text[text5, T, true, true, 0, 0], Text[text10, T, true, true, 0, 0]]) → text11