$\huge{高}$

演示

b = 5 (slider from 3 to 6)
a = 3 (slider from 1 to b - 2)
h = 3.6 (slider from 1 to 5)
k = 0 (slider from 0 to 1, step 0.001)
n = 0 (slider from 0 to 4, step 1)
α = 0 rad (slider from 0° to 180°, step 5°)
A: (0, 0)
B: A + (2, h)
C: B + (a, 0)
D: A + (b, 0)
E: B + (0, (-h))
F = Midpoint(C, D)
f = Segment(B, E)
β = Angle(D, E, B)
q1, a_1, b_1, c, d = Polygon(A, B, C, D)
q2, a_2, b_2, f_1, d_1 = Polygon(A, B, F, D)
B' = Rotate(B, (-α), F)
C' = Rotate(C, (-α), F)
F' = Rotate(F, (-α), F)
t1, f', b', c' = Polygon(B', C', F')
g = Segment(B, Point[Segment[B, F], k])
text1 = Text("上底", Midpoint[B', C'] + (-0.2, (-0.8 * α / (180°)) + 0.8), false, true)
text2 = Text("下底", Midpoint[A, D] + (-0.2, 0), false, true)
text3 = Text(If[α ≟ 0°, "梯形", "三角形"] + "面积=(上底+下底)×高÷2", B + (-2, 2), false, true)

Tool: 坐标系
x最小、最大，y最小、最大，0.23
Input: m, n, q, p, a
Output: A, B, O, l1, l2, list3, list4, list5, list6, u, v

$\huge\textcolor{}{x}$

$\huge\textcolor{}{y}$

$\Large{O}$

u = Vector((m - 1, 0), (n + 1, 0))
l1 = Sequence(Segment[(k, 0), (k, a)], k, m, n)
A: (n + 1, 0)
list4 = Sequence(Text[k, Element[Sequence[(t - 0.15, 0), t, 1, n], k], true, true], k, 1, n)
list3 = Sequence(Text[k, Element[Sequence[(t - 0.5, 0), t, m, -1], k + abs(m) + 1], true, true], k, m, -1)
l2 = Sequence(Segment[(0, k), (a, k)], k, q, p)
list5 = Sequence(Text[k, Element[Sequence[(-0.9, t + 0.2), t, q, -1], k + abs(q) + 1], true, true], k, q, -1)
v = Vector((0, q - 1), (0, p + 1))
B: (0, p + 1)
list6 = Sequence(Text[k, Element[Sequence[(-0.6, t + 0.2), t, 1, p], k], true, true], k, 1, p)
O: B - (0, p + 1)