2\times Aire=(b+B)\times h

donc

b

B

b

B

Aire=\frac{(b+B)}{2}\times h

A = (4, 7)
B = (3, 5)
C = (9, 5)
D = (7, 7)
P, a, b, c, d = Polygon(A, B, C, D)
E = Midpoint(A, B)
α = 3.141592653589793 rad (slider from 0 to 3.141592653589793, step 0.017453292519943295)
A' = Rotate(A, α, E)
B' = Rotate(B, α, E)
C' = Rotate(C, α, E)
D' = Rotate(D, α, E)
P', a', b', c', d' = Polygon(A', B', C', D')
e = LineBisector(b)
F = Intersect(b, e)
G = Intersect(d, e)
h = Segment(G, F)