Àrea del cercle

Move

A1 = 0
A2: A1 + 1
mov1 = 0 (slider from 0 to 1, step 0.01)
n = 9 (slider from 3 to 25, step 1)
α: (180 * ° / n)
r = 3.5 (slider from 1 to 10, step 0.5)
O: (0, r)
c = Circle(O, r)
A = Point(c)
B1: A
lista1 = Sequence(Rotate[A, ((2 * s) * α), O], s, 0, n, 1)
lista4 = Sequence(Vector[Midpoint[Element[lista1, s], Element[lista1, s + 1]], O], s, 1, n)
lista5 = Sequence(Vector[Rotate[Element[lista4, s], ((((-2 * s) + 1) * mov1) * α)]], s, 1, n)
lista2 = Sequence(Vector[Element[lista1, s], Element[lista1, s + 1]], s, 1, n)
lista3 = Sequence(Vector[Rotate[Element[lista2, s], ((((-2 * s) + 1) * mov1) * α)]], s, 1, n)
B2: B1 + Element[lista3, A2]
C1: Midpoint[B1, B2] + Element[lista5, A2]
I1 = Midpoint(C1, B2)
H1 = Midpoint(B1, C1)
J1 = Midpoint(H1, I1)
a = Segment(O, A)
lado: ((2 * r) * sin((180 * ° / n)))
d = Circle(A, lado)
k = OrthogonalLine(A, a)
A3: A2 + 1
A4: A3 + 1
A5: A4 + 1
A6: A5 + 1
A7: A6 + 1
A8: A7 + 1
A9: A8 + 1
A10: A9 + 1
A11: A10 + 1
A12: A11 + 1
A13: A12 + 1
A14: A13 + 1
A15: A14 + 1
A16: A15 + 1
A17: A16 + 1
A18: A17 + 1
A19: A18 + 1
A20: A19 + 1
A21: A20 + 1
A22: A21 + 1
A23: A22 + 1
A24: A23 + 1
A25: A24 + 1
A26: A25 + 1
B3: B2 + Element[lista3, A3]
B4: B3 + Element[lista3, A4]
B5: B4 + Element[lista3, A5]
B6: B5 + Element[lista3, A6]
B7: B6 + Element[lista3, A7]
B8: B7 + Element[lista3, A8]
B9: B8 + Element[lista3, A9]
B10: B9 + Element[lista3, A10]
B11: B10 + Element[lista3, A11]
B12: B11 + Element[lista3, A12]
B13: B12 + Element[lista3, A13]
B14: B13 + Element[lista3, A14]
B15: B14 + Element[lista3, A15]
B16: B15 + Element[lista3, A16]
B17: B16 + Element[lista3, A17]
B18: B17 + Element[lista3, A18]
B19: B18 + Element[lista3, A19]
B20: B19 + Element[lista3, A20]
B21: B20 + Element[lista3, A21]
B22: B21 + Element[lista3, A22]
B23: B22 + Element[lista3, A23]
B24: B23 + Element[lista3, A24]
B25: B24 + Element[lista3, A25]
B26: B25 + Element[lista3, A26]
apotema: (r * cos((180 * ° / n)))
C2: Midpoint[B2, B3] + Element[lista5, A3]
C3: Midpoint[B3, B4] + Element[lista5, A4]
C4: Midpoint[B4, B5] + Element[lista5, A5]
C5: Midpoint[B5, B6] + Element[lista5, A6]
C6: Midpoint[B6, B7] + Element[lista5, A7]
C7: Midpoint[B7, B8] + Element[lista5, A8]
C8: Midpoint[B8, B9] + Element[lista5, A9]
C9: Midpoint[B9, B10] + Element[lista5, A10]
C10: Midpoint[B10, B11] + Element[lista5, A11]
C11: Midpoint[B11, B12] + Element[lista5, A12]
C12: Midpoint[B12, B13] + Element[lista5, A13]
C13: Midpoint[B13, B14] + Element[lista5, A14]
C14: Midpoint[B14, B15] + Element[lista5, A15]
C15: Midpoint[B15, B16] + Element[lista5, A16]
C16: Midpoint[B16, B17] + Element[lista5, A17]
C17: Midpoint[B17, B18] + Element[lista5, A18]
C18: Midpoint[B18, B19] + Element[lista5, A19]
C19: Midpoint[B19, B20] + Element[lista5, A20]
C20: Midpoint[B20, B21] + Element[lista5, A21]
C21: Midpoint[B21, B22] + Element[lista5, A22]
C22: Midpoint[B22, B23] + Element[lista5, A23]
C23: Midpoint[B23, B24] + Element[lista5, A24]
C24: Midpoint[B24, B25] + Element[lista5, A25]
C25: Midpoint[B25, B26] + Element[lista5, A26]
D1, E1, F1, G1 = Polygon(B1, B2, C1)
D2, E2, F2, G2 = Polygon(B2, B3, C2)
D3, E3, F3, G3 = Polygon(B3, B4, C3)
D4, E4, F4, G4 = Polygon(B4, B5, C4)
D5, E5, F5, G5 = Polygon(B5, B6, C5)
D6, E6, F6, G6 = Polygon(B6, B7, C6)
D7, E7, F7, G7 = Polygon(B7, B8, C7)
D8, E8, F8, G8 = Polygon(B8, B9, C8)
D9, E9, F9, G9 = Polygon(B9, B10, C9)
D10, E10, F10, G10 = Polygon(B10, B11, C10)
D11, E11, F11, G11 = Polygon(B11, B12, C11)
D12, E12, F12, G12 = Polygon(B12, B13, C12)
D13, E13, F13, G13 = Polygon(B13, B14, C13)
D14, E14, F14, G14 = Polygon(B14, B15, C14)
D15, E15, F15, G15 = Polygon(B15, B16, C15)
D16, E16, F16, G16 = Polygon(B16, B17, C16)
D17, E17, F17, G17 = Polygon(B17, B18, C17)
D18, E18, F18, G18 = Polygon(B18, B19, C18)
D19, E19, F19, G19 = Polygon(B19, B20, C19)
D20, E20, F20, G20 = Polygon(B20, B21, C20)
D21, E21, F21, G21 = Polygon(B21, B22, C21)
D22, E22, F22, G22 = Polygon(B22, B23, C22)
D23, E23, F23, G23 = Polygon(B23, B24, C23)
D24, E24, F24, G24 = Polygon(B24, B25, C24)
D25, E25, F25, G25 = Polygon(B25, B26, C25)
H2 = Midpoint(B2, C2)
H3 = Midpoint(B3, C3)
H4 = Midpoint(B4, C4)
H5 = Midpoint(B5, C5)
H6 = Midpoint(B6, C6)
H7 = Midpoint(B7, C7)
H8 = Midpoint(B8, C8)
H9 = Midpoint(B9, C9)
H10 = Midpoint(B10, C10)
H11 = Midpoint(B11, C11)
H12 = Midpoint(B12, C12)
H13 = Midpoint(B13, C13)
H14 = Midpoint(B14, C14)
H15 = Midpoint(B15, C15)
H16 = Midpoint(B16, C16)
H17 = Midpoint(B17, C17)
H18 = Midpoint(B18, C18)
H19 = Midpoint(B19, C19)
H20 = Midpoint(B20, C20)
H21 = Midpoint(B21, C21)
H22 = Midpoint(B22, C22)
H23 = Midpoint(B23, C23)
H24 = Midpoint(B24, C24)
H25 = Midpoint(B25, C25)
I2 = Midpoint(C2, B3)
I3 = Midpoint(C3, B4)
I4 = Midpoint(C4, B5)
I5 = Midpoint(C5, B6)
I6 = Midpoint(C6, B7)
I7 = Midpoint(C7, B8)
I8 = Midpoint(C8, B9)
I9 = Midpoint(C9, B10)
I10 = Midpoint(C10, B11)
I11 = Midpoint(C11, B12)
I12 = Midpoint(C12, B13)
I13 = Midpoint(C13, B14)
I14 = Midpoint(C14, B15)
I15 = Midpoint(C15, B16)
I16 = Midpoint(C16, B17)
I17 = Midpoint(C17, B18)
I18 = Midpoint(C18, B19)
I19 = Midpoint(C19, B20)
I20 = Midpoint(C20, B21)
I21 = Midpoint(C21, B22)
I22 = Midpoint(C22, B23)
I23 = Midpoint(C23, B24)
I24 = Midpoint(C24, B25)
I25 = Midpoint(C25, B26)
J2 = Midpoint(H2, I2)
J3 = Midpoint(H3, I3)
J4 = Midpoint(H4, I4)
J5 = Midpoint(H5, I5)
J6 = Midpoint(H6, I6)
J7 = Midpoint(H7, I7)
J8 = Midpoint(H8, I8)
J9 = Midpoint(H9, I9)
J10 = Midpoint(H10, I10)
J11 = Midpoint(H11, I11)
J12 = Midpoint(H12, I12)
J13 = Midpoint(H13, I13)
J14 = Midpoint(H14, I14)
J15 = Midpoint(H15, I15)
J16 = Midpoint(H16, I16)
J17 = Midpoint(H17, I17)
J18 = Midpoint(H18, I18)
J19 = Midpoint(H19, I19)
J20 = Midpoint(H20, I20)
J21 = Midpoint(H21, I21)
J22 = Midpoint(H22, I22)
J23 = Midpoint(H23, I23)
J24 = Midpoint(H24, I24)
J25 = Midpoint(H25, I25)
K1, L1, M1, N1, O1 = Polygon(B1, H1, I1, B2)
K2, L2, M2, N2, O2 = Polygon(B2, H2, I2, B3)
K3, L3, M3, N3, O3 = Polygon(B3, H3, I3, B4)
K4, L4, M4, N4, O4 = Polygon(B4, H4, I4, B5)
K5, L5, M5, N5, O5 = Polygon(B5, H5, I5, B6)
K6, L6, M6, N6, O6 = Polygon(B6, H6, I6, B7)
K7, L7, M7, N7, O7 = Polygon(B7, H7, I7, B8)
K8, L8, M8, N8, O8 = Polygon(B8, H8, I8, B9)
K9, L9, M9, N9, O9 = Polygon(B9, H9, I9, B10)
K10, L10, M10, N10, O10 = Polygon(B10, H10, I10, B11)
K11, L11, M11, N11, O11 = Polygon(B11, H11, I11, B12)
K12, L12, M12, N12, O12 = Polygon(B12, H12, I12, B13)
K13, L13, M13, N13, O13 = Polygon(B13, H13, I13, B14)
K14, L14, M14, N14, O14 = Polygon(B14, H14, I14, B15)
K15, L15, M15, N15, O15 = Polygon(B15, H15, I15, B16)
K16, L16, M16, N16, O16 = Polygon(B16, H16, I16, B17)
K17, L17, M17, N17, O17 = Polygon(B17, H17, I17, B18)
K18, L18, M18, N18, O18 = Polygon(B18, H18, I18, B19)
K19, L19, M19, N19, O19 = Polygon(B19, H19, I19, B20)
K20, L20, M20, N20, O20 = Polygon(B20, H20, I20, B21)
K21, L21, M21, N21, O21 = Polygon(B21, H21, I21, B22)
K22, L22, M22, N22, O22 = Polygon(B22, H22, I22, B23)
K23, L23, M23, N23, O23 = Polygon(B23, H23, I23, B24)
K24, L24, M24, N24, O24 = Polygon(B24, H24, I24, B25)
K25, L25, M25, N25, O25 = Polygon(B25, H25, I25, B26)
texto1: "Apotema= " + apotema + ""
texto2: "Lado = " + lado + ""
texto4: "O poligono dívidese en " + n + "  triángulos isosceles de base " + lado + "  e altura " + apotema + " ."
b: (lado * apotema / 2)
e: (n * b)
texto5: "A(triángulo)=\frac{" + (LaTeX[lado]) + "·" + (LaTeX[apotema]) + "}{2}=" + (LaTeX[b]) + "⇒A(polígono)=" + (LaTeX[n]) + "·" + (LaTeX[b]) + "=" + (LaTeX[e]) + ""
texto3: "Polígono de  " + n + " lados"
f: (n * lado)
texto6: "Perímetro= n·l=" + (LaTeX[n]) + "·" + (LaTeX[lado]) + "=" + (LaTeX[f]) + ""