Área e Perímetro Triángulo, Cadrado e Rectángulo

Cando desactivas unha casilla, aparecenche todas as posibilidades
Activando as casillas de control alternativamente apareceran as figuras correspondentes.
Move os esvaradores para modificar o tamaño dos lados.
Na dereita aparecerache o valor do perímetro e da área

Triángulo

Cadrado

Rectángulo

b = 10 (slider from 0 to 10, step 0.1)
a = 10 (slider from 0 to 10, step 0.1)
A = (-5, -6)
B = Point(Circle[A, a])
c_2 = Segment(A, B)
d = OrthogonalLine(A, c_2)
e = Circle(A, b)
C = Intersect(e, d, 2)
f = OrthogonalLine(C, d)
g = OrthogonalLine(B, f)
D = Intersect(f, g)
poly1, a_1, b_1, d_1, c_1 = Polygon(A, B, D, C)
h_1 = Perimeter(poly1)
text2: "Área = b · a = " + a + " · " + b + " = " + ((a * b))
text1_1: "Perímetro = 2(a + b) = 2( " + b + " + " + a + ") = " + ((2 * b) + (2 * a)) + ""
polígono1, i, j, k, l, E, F = Polygon(A, B, 4)
h = 10 (slider from 0 to 10, step 0.1)
m = OrthogonalLine(A, a_1)
G = (-5.578758151088084, 3.7660788653041806)
p = Circle(A, h)
H, I = Intersect(p, m)
n = OrthogonalLine(I, m)
K = Point(n)
q = OrthogonalLine(K, n)
L = Intersect(a_1, i)
M = Intersect(a_1, i)
r = Segment(A, B)
N = Intersect(q, a_1)
s = Segment(K, N)
polígono2, b_2, a_2, k_1 = Polygon(A, K, B)
c = Segment(F, A)
t = Segment(F, E)
e_1 = Segment(E, B)
o = false
u = true
v = false
f_1 = Segment(A, K)
i_1 = Segment(B, K)
g_1 = Segment(C, A)
j_1 = Segment(D, B)
w: f_1 + i_1 + a
m_1: (t * s / 2)
texto2: "Área = \frac{" + (LaTeX[t]) + "·" + (LaTeX[s]) + "}{2} = " + (LaTeX[m_1]) + ""
texto1: "Perímetro = " + (LaTeX[f_1]) + "  + " + (LaTeX[i_1]) + "  + " + (LaTeX[r]) + "  = " + (LaTeX[w]) + ""
l_1: (4 * r)
texto3: "Perímetro = 4· " + r + " = " + l_1 + ""
n_1: r^(2)
texto4: "Área =" + (LaTeX[r]) + "^2 = " + (LaTeX[n_1]) + ""