Área e perímetro dun trapecio

Move os esvaradores B e b para modificar as bases e o esvarador h para modificar a altura do trapecio. En cada caso vanse calculando a área e o perímetro
Tamén podes mover o vértice superior esquerdo, marcado cunha frecha para modificar a forma, e comprobarás como a área non se modifica, pero sí o perímetro
Se moves o esvaraador "move", terás a comprobación visual da fórmula da área

Área \;  =  \;  \frac{ Área \; paralelogramo }{2 } \;  

B = 10 (slider from 0 to 10, step 0.1)
b = 10 (slider from 0 to 10, step 0.1)
h = 10 (slider from 0 to 10, step 0.1)
A = (2, -4)
C = Point(Circle[A, B])
a = Segment(A, C)
c = OrthogonalLine(A, a)
d = Circle(A, h)
D = Intersect(d, c, 2)
e = OrthogonalLine(D, c)
E = Point(e)
f = Circle(E, b)
F = Intersect(f, e, 1)
polígono1, a_1, e_1, f_1, c_1 = Polygon(A, E, F, C)
g = OrthogonalLine(E, c_1)
G = Intersect(g, c_1)
i = Segment(E, G)
H = Midpoint(f_1)
move = 0 rad (slider from 0 to 3.141592653589793, step 0.017453292519943295)
A' = Rotate(A, (-move), H)
E' = Rotate(E, (-move), H)
F' = Rotate(F, (-move), H)
C' = Rotate(C, (-move), H)
polígono1', a', e', f', c' = Polygon(A', E', F', C')
k = CircleArc(H, C', C)
p = CircleArc(H, F', F)
texto2: "Perímetro = " + B + " + " + b + " + " + a_1 + " + " + f_1 + " = " + (B + b + a_1 + f_1) + ""
texto3: "A=   
 \frac{ (B+b)·h }{2 } \; = \;  \frac{ (" + (LaTeX[B]) + "+" + (LaTeX[b]) + ")·" + (LaTeX[h]) + " }{2 } \; = \; " + (LaTeX[((B + b) * h / 2)]) + ""