梯形与矩形连接

GeoGebra 命令及参数

1. PointIn(y ≥ 1) → C
2. Ray((0, 0), (1, 0)) → bb
3. Point(bb) → A
4. PointIn(y ≥ 1 ∧ x ≥ 0) → B
5. Segment((1, 0), (20, 0)) → q_1
6. Point(q_1) → D
7. Polygon(A, B, C, D) → poly1, a, b, c, d
8. Midpoint(c) → F
9. Midpoint(a) → E
10. OrthogonalLine(E, d) → e
11. Intersect(top, e) → G
12. OrthogonalLine(F, d) → f
13. Intersect(e, y = 0) → H
14. Intersect(f, y = 0) → I
15. Polygon(Rotate[E, ((-Min[deg, 180]))°, E], Rotate[H, ((-Min[deg, 180]))°, E], Rotate[A, ((-Min[deg, 180]))°, E]) → poly2, h, m, n
16. Polygon(Rotate[F, Min[deg, 180]°, F], Rotate[I, Min[deg, 180]°, F], Rotate[D, Min[deg, 180]°, F]) → poly3, i, r, s
17. Polygon(Rotate[E, Min[deg, 180]°, E], Rotate[G, Min[deg, 180]°, E], Rotate[B, Min[deg, 180]°, E]) → poly4, g, k, l
18. Intersect(top, f) → J
19. Polygon(Rotate[F, ((-Min[deg, 180]))°, F], Rotate[C, ((-Min[deg, 180]))°, F], Rotate[J, ((-Min[deg, 180]))°, F]) → poly5, j, p, q
20. Polygon(D, A, E, G, J, F) → poly6, t, a_1, b_1, c_1, d_1, e_1
21. Polygon(H, E, B, J, F, D) → poly7, f_1, g_1, h_1, i_1, j_1, k_1
22. Polygon(G, E, A, I, F, C) → poly8, g_2, e_2, a_2, i_2, f_2, c_2
23. Polygon(H, E, B, C, F, I) → poly9, h_2, e_3, b_2, c_3, f_3, i_3
24. Polygon(B, A, I, F, C) → poly10, b_3, a_3, i_4, f_4, c_4
25. Polygon(B, C, D, H, E) → poly11, b_4, c_5, d_2, h_3, e_4
26. Polygon(A, B, C, D) → poly12, a_4, b_5, c_6, d_3
27. Polygon(A, E, G, C, D) → poly13, a_5, e_5, g_3, c_7, d_4
28. Polygon(Translate[A, ((movement * (deg / 100 - 2)), 0)], Translate[B, ((movement * (deg / 100 - 2)), 0)], Translate[C, ((movement * (deg / 100 - 2)), 0)], Translate[D, ((movement * (deg / 100 - 2)), 0)]) → ghost, l_1, m_1, n_1, p_1
29. Polygon(A, B, J, F, D) → poly14, a_6, b_6, j_2, f_5, d_5