i

x

y

A = (2, 3)
B = (5, 3)
u = Vector(A, B)
v = OrthogonalVector(Vector[Vector[A, B]])
Vieleck1, a, b, c, d = Polygon(A, B, B + v, A + v)
i = 2 (slider from 0 to 19, step 1)
A2 = 1
B2 = 0
P = Point(xAxis)
C2 = 0
A3: A2 + 1.0
B3: x(P)
A4: A3 + 1.0
B4: B3 + $B$3 / 2.0^(A2)
A5: A4 + 1.0
B5: B4 + $B$3 / 2.0^(A3)
A6: A5 + 1.0
B6: B5 + $B$3 / 2.0^(A4)
A7: A6 + 1.0
B7: B6 + $B$3 / 2.0^(A5)
A8: A7 + 1.0
B8: B7 + $B$3 / 2.0^(A6)
A9: A8 + 1.0
B9: B8 + $B$3 / 2.0^(A7)
A10: A9 + 1.0
B10: B9 + $B$3 / 2.0^(A8)
A11: A10 + 1.0
B11: B10 + $B$3 / 2.0^(A9)
A12: A11 + 1.0
B12: B11 + $B$3 / 2.0^(A10)
A13: A12 + 1.0
B13: B12 + $B$3 / 2.0^(A11)
A14: A13 + 1.0
B14: B13 + $B$3 / 2.0^(A12)
A15: A14 + 1.0
B15: B14 + $B$3 / 2.0^(A13)
A16: A15 + 1.0
B16: B15 + $B$3 / 2.0^(A14)
A17: A16 + 1.0
B17: B16 + $B$3 / 2.0^(A15)
A18: A17 + 1.0
B18: B17 + $B$3 / 2.0^(A16)
A19: A18 + 1.0
B19: B18 + $B$3 / 2.0^(A17)
A20: A19 + 1.0
B20: B19 + $B$3 / 2.0^(A18)
A21: A20 + 1.0
B21: B20 + $B$3 / 2.0^(A19)
P_1: (B2, C2)
C3 = 0
P_2: (B3, C3)
C4 = 0
P_3: (B4, C4)
C5 = 0
P_4: (B5, C5)
C6 = 0
P_5: (B6, C6)
C7 = 0
P_6: (B7, C7)
C8 = 0
P_7: (B8, C8)
C9 = 0
P_8: (B9, C9)
C10 = 0
P_9: (B10, C10)
C11 = 0
P_{10}: (B11, C11)
C12 = 0
P_{11}: (B12, C12)
C13 = 0
P_{12}: (B13, C13)
C14 = 0
P_{13}: (B14, C14)
C15 = 0
P_{14}: (B15, C15)
C16 = 0
P_{15}: (B16, C16)
C17 = 0
P_{16}: (B17, C17)
C18 = 0
P_{17}: (B18, C18)
C19 = 0
P_{18}: (B19, C19)
C20 = 0
P_{19}: (B20, C20)
C21 = 0
P_{20}: (B21, C21)
Liste1: {P_1, P_2, P_3, P_4, P_5, P_6, P_7, P_8, P_9, P_{10}, P_{11}, P_{12}, P_{13}, P_{14}, P_{15}, P_{16}, P_{17}, P_{18}, P_{19}, P_{20}}
Liste2 = Sequence(Quadrat[Element[Liste1, n], Element[Liste1, n + 1.0]], n, 1.0, i)
Text1: "Summe aller Flächeninhalte: " + (Sum[Liste2]) + " E²"

Tool: Quadrat
Input: A, B
Output: Vieleck1

v = OrthogonalVector(Vector[Vector[A, B]])
Vieleck1, a, b, c, d = Polygon(A, B, B + v, A + v)