i

x

A2 = 0
A3: A2 + 1.0
A4: A3 + 1.0
A5: A4 + 1.0
A6: A5 + 1.0
A7: A6 + 1.0
A8: A7 + 1.0
A9: A8 + 1.0
A10: A9 + 1.0
A11: A10 + 1.0
A12: A11 + 1.0
A13: A12 + 1.0
A14: A13 + 1.0
A15: A14 + 1.0
A16: A15 + 1.0
A17: A16 + 1.0
A18: A17 + 1.0
A19: A18 + 1.0
A20: A19 + 1.0
A21: A20 + 1.0
A22: A21 + 1.0
A23: A22 + 1.0
A = Point(a)
B2: x(A)
B3: B2 + x(A) / 2.0^(A3)
B4: B3 + x(A) / 2.0^(A4)
B5: B4 + x(A) / 2.0^(A5)
B6: B5 + x(A) / 2.0^(A6)
B7: B6 + x(A) / 2.0^(A7)
B8: B7 + x(A) / 2.0^(A8)
B9: B8 + x(A) / 2.0^(A9)
B10: B9 + x(A) / 2.0^(A10)
B11: B10 + x(A) / 2.0^(A11)
B12: B11 + x(A) / 2.0^(A12)
B13: B12 + x(A) / 2.0^(A13)
B14: B13 + x(A) / 2.0^(A14)
B15: B14 + x(A) / 2.0^(A15)
B16: B15 + x(A) / 2.0^(A16)
B17: B16 + x(A) / 2.0^(A17)
B18: B17 + x(A) / 2.0^(A18)
B19: B18 + x(A) / 2.0^(A19)
B20: B19 + x(A) / 2.0^(A20)
B21: B20 + x(A) / 2.0^(A21)
B22: B21 + x(A) / 2.0^(A22)
B23: B22 + x(A) / 2.0^(A23)
B = (0, 0)
C = Midpoint(A, B)
c = Circle(C, A)
b = OrthogonalLine(C, a)
D, E = Intersect(c, b)
Vieleck1, b_1, d, a_1, e = Polygon(B, D, A, E)
i = 20 (slider from 0 to 20, step 1)
L_1: {B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13, B14, B15, B16, B17, B18, B19, B20, B21, B22, B23}
Liste1 = Sequence(Quadrat_d[(Element[L_1, n], Element[L_1, n]), (Element[L_1, n + 1.0], Element[L_1, n + 1.0]), a], n, 1.0, i)
Text1: "Umfang u = " + (4.0 * Element[L_1, i + 1.0]) + " E"
Text2: "Flächeninhalt A = " + (x(A)^(2.0) + Sum[Liste1]) + " E²"

Tool: Quadrat_d
Input: B, A, a
Output: Vieleck1

A = Point(a)
C = Midpoint(A, B)
c = Circle(C, A)
b = OrthogonalLine(C, a)
D, E = Intersect(c, b)
Vieleck1, b_1, d, a_1, e = Polygon(B, D, A, E)