梯形与割线交互式演示

GeoGebra 命令及参数

1. Line(B, C) → a
2. Polygon(B, C, D, A) → poly1, b, c, c_1, a_1
3. Line(B, c) → d
4. Line(D, b) → e
5. Circle(B, C) → f
6. Circle(D, C) → g
7. Circle(C, D) → h
8. Circle(C, B) → k
9. Circle(B, Distance[C, D]) → q
10. Intersect(d, e) → G
11. Circle(D, G) → p
12. Intersect(q, e) → E, F
13. Intersect(p, d) → H, I
14. Intersect(g, d) → J, K
15. Intersect(g, e) → L, M
16. OrthogonalLine(D, d) → i
17. Intersect(i, d) → N
18. OrthogonalLine(B, e) → j
19. Intersect(j, e) → O
20. Ray(B, F) → l
21. Ray(D, F) → m
22. Intersect(f, g) → T, U, ,
23. Circle(N, 0.3) → g_1
24. Circle(O, 0.3) → h_1
25. Circle(I, 0.3) → t
26. Circle(E, 0.3) → s
27. Circle(G, 0.3) → r
28. Circle(U, 0.3) → d_1
29. Distance(A, H) → Makdist
30. Distance(A, U) → Daltdist
31. If(Daltdist < 0.25, true) → IsDalt
32. If(Makdist < 0.25, true) → IsMak
33. Distance(A, I) → ADeqBCdist
34. Distance(A, E) → ABeqCDdist
35. Min(Distance[A, O], Distance[A, N]) → BAD90dist
36. Distance(A, l) → CDparABdist
37. Distance(A, m) → CBparADdist
38. If(ABeqCDdist < 0.25 ∨ ADeqBCdist < 0.25, true) → Isiscotrap
39. If(BAD90dist < 0.25, true) → Isrgttrap
40. If(CBparADdist < 0.2 ∨ CDparABdist < 0.2, true) → Istrap