Quadrados

Semi-Círculos

Triângulos

L2 = 2 (slider from 0 to 4, step 1)
O = Point({0, 0})
Tipo = 0 (slider from -1 to 1, step 1)
L1 = 2 (slider from 0 to 5, step 1)
pitagoras, a, b, c = Polygon(O, (L1, 0), ((L2 * sin((Tipo * π / 12))), (L2 * cos((Tipo * π / 12)))))
quadrado2, f, g, h, i, A, B = Polygon(O, ((L2 * sin((Tipo * π / 12))), (L2 * cos((Tipo * π / 12)))), 4)
quadrado1 = Polygon((L1, 0), (0, 0), 4)
quadrado3 = Polygon(((L2 * sin((Tipo * π / 12))), (L2 * cos((Tipo * π / 12)))), (L1, 0), 4)
quadrados = true
circulo3 = CircleSector((L1 - (L1 - (L2 * sin((Tipo * π / 12)))) / 2, (L2 / 2 * cos((Tipo * π / 12)))), (L1, 0), ((L2 * sin((Tipo * π / 12))), (L2 * cos((Tipo * π / 12)))))
semicirculos = false
triangulo1, j, k, l, C = Polygon((L1, 0), O, 3)
triangulo2, m, n, p, D = Polygon(O, ((L2 * sin((Tipo * π / 12))), (L2 * cos((Tipo * π / 12)))), 3)
triangulo3 = Polygon(((L2 * sin((Tipo * π / 12))), (L2 * cos((Tipo * π / 12)))), (L1, 0), 3)
Pontotriangulo2 = PointIn(triangulo2)
Pontotriangulo1 = PointIn(triangulo1)
Textotriangulo1: "Área de  = " + triangulo1 + ""
Textotriangulo2: "Área 2  = " + triangulo2 + ""
Pontotriangulo3 = PointIn(triangulo3)
Textotriangulo3: "Área de  = " + triangulo3 + ""
triangulos = false
circulo2 = CircleSector(((L2 / 2 * sin((Tipo * π / 12))), (L2 / 2 * cos((Tipo * π / 12)))), ((L2 * sin((Tipo * π / 12))), (L2 * cos((Tipo * π / 12)))), O)
circulo1 = CircleSector((L1 / 2, 0), O, (L1, 0))
texto3: "Área do quadrado 2 =  " + quadrado3 + ""
texto2: "Área do quadrado 2 =  " + quadrado2 + ""
texto1: "Área do quadrado 1 = " + quadrado1 + ""
texto4: "Área1 =" + (LaTeX[circulo1 / π]) + "\pi"
texto5: "Área2 =" + (LaTeX[circulo2 / π]) + "\pi"
texto6: "Área2 =" + (LaTeX[circulo3 / π]) + "\pi"