Área e Perímetro Triángulo

Move os esvaradores b e h para modificar a base e a altura do triángulo. 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 esvarador "move", terás a comprobación visual da formula da área

Perímetro

Área

A área do triángulo é a metade da 
área do paralelogramo que ten a mesma 
base e altura que o triángulo

A = (-27, -10)
b = 10 (slider from 0 to 10, step 0.1)
B = Point(Circle[A, b])
c = Segment(A, B)
d = OrthogonalLine(A, c)
h = 10 (slider from 0 to 10, step 0.1)
e = Circle(A, h)
C = Intersect(e, d, 2)
f = OrthogonalLine(C, d)
move = 0 (slider from 0 to 3.141592653589793, step 0.01)
D = Point(f)
polígono1, b_1, a_1, d_1 = Polygon(A, D, B)
g = OrthogonalLine(D, c)
E = Intersect(g, d_1)
h_1 = Segment(D, E)
F = Midpoint(a_1)
A' = Rotate(A, move, F)
D' = Rotate(D, move, F)
B' = Rotate(B, move, F)
polígono1', b', a', d' = Polygon(A', D', B')
AD: b_1
DB: a_1
texto2: "P= a + b + c= " + (LaTeX[a_1]) + "+ " + (LaTeX[d_1]) + "+ " + (LaTeX[b_1]) + " = " + (LaTeX[AD + DB + b]) + ""
texto4: "A=\frac{b·h}{2}=\frac{" + (LaTeX[d_1]) + "·" + (LaTeX[h_1]) + "}{2}=" + (LaTeX[polígono1]) + ""