n = 4 (slider from 3 to 10, step 1)
A1 = 0
A2 = 1
A3: 2.0 * A2 - A1
A4: 2.0 * A3 - A2
A5: 2.0 * A4 - A3
A6: 2.0 * A5 - A4
A7: 2.0 * A6 - A5
A8: 2.0 * A7 - A6
A9: 2.0 * A8 - A7
A10: 2.0 * A9 - A8
A11: 2.0 * A10 - A9
B1 = Ray((0.0, 0.0), Rotate[(1.0, 0.0), 2.0 * 3.141592653589793 * A1 / n])
B2 = Ray((0.0, 0.0), Rotate[(1.0, 0.0), 2.0 * 3.141592653589793 * A2 / n])
B3 = Ray((0.0, 0.0), Rotate[(1.0, 0.0), 2.0 * 3.141592653589793 * A3 / n])
B4 = Ray((0.0, 0.0), Rotate[(1.0, 0.0), 2.0 * 3.141592653589793 * A4 / n])
B5 = Ray((0.0, 0.0), Rotate[(1.0, 0.0), 2.0 * 3.141592653589793 * A5 / n])
B6 = Ray((0.0, 0.0), Rotate[(1.0, 0.0), 2.0 * 3.141592653589793 * A6 / n])
B7 = Ray((0.0, 0.0), Rotate[(1.0, 0.0), 2.0 * 3.141592653589793 * A7 / n])
B8 = Ray((0.0, 0.0), Rotate[(1.0, 0.0), 2.0 * 3.141592653589793 * A8 / n])
B9 = Ray((0.0, 0.0), Rotate[(1.0, 0.0), 2.0 * 3.141592653589793 * A9 / n])
B10 = Ray((0.0, 0.0), Rotate[(1.0, 0.0), 2.0 * 3.141592653589793 * A10 / n])
B11 = Ray((0.0, 0.0), Rotate[(1.0, 0.0), 2.0 * 3.141592653589793 * A11 / n])
C1 = Point(B1)
C2 = Point(B2)
C3 = Point(B3)
C4 = Point(B4)
C5 = Point(B5)
C6 = Point(B6)
C7 = Point(B7)
C8 = Point(B8)
C9 = Point(B9)
C10 = Point(B10)
C11 = Point(B11)
D1 = OrthogonalLine(C1, B1)
D2 = OrthogonalLine(C2, B2)
D3 = OrthogonalLine(C3, B3)
D4 = OrthogonalLine(C4, B4)
D5 = OrthogonalLine(C5, B5)
D6 = OrthogonalLine(C6, B6)
D7 = OrthogonalLine(C7, B7)
D8 = OrthogonalLine(C8, B8)
D9 = OrthogonalLine(C9, B9)
D10 = OrthogonalLine(C10, B10)
D11 = OrthogonalLine(C11, B11)
lista1 = Sequence(Intersect[Object["D" + (s)], Object["D" + (s + 1.0)]], s, 1.0, n - 1.0)
lista2 = Join({lista1, {Intersect[Object["D" + n], D1]}, {Intersect[D1, D2]}})
lista3 = Sequence(Segment[Element[lista2, s], Element[lista2, s + 1.0]], s, 1.0, n)
lista5 = Sequence(Segment[Element[lista2, s], Object["C" + (s)]], s, 1.0, n)
A = (0.6534359280000028, 0.9093831000000027)
lista4 = Sequence(Line[Element[lista2, s], Element[lista2, s + 1.0]], s, 1.0, n)
lista6 = Sequence(Segment[A, Intersect[Element[lista4, s], OrthogonalLine[A, Element[lista4, s]]]], s, 1.0, n)
suma = Sum(lista6)
texto1: "Suma = " + suma
E1 = Angle(Element[lista2, A1 + 1.0], Element[lista2, A1 + 2.0], Element[lista2, A1 + 3.0])
E2 = Angle(Element[lista2, A2 + 1.0], Element[lista2, A2 + 2.0], Element[lista2, A2 + 3.0])
E3 = Angle(Element[lista2, A3 + 1.0], Element[lista2, A3 + 2.0], Element[lista2, A3 + 3.0])
E4 = Angle(Element[lista2, A4 + 1.0], Element[lista2, A4 + 2.0], Element[lista2, A4 + 3.0])
E5 = Angle(Element[lista2, A5 + 1.0], Element[lista2, A5 + 2.0], Element[lista2, A5 + 3.0])
E6 = Angle(Element[lista2, A6 + 1.0], Element[lista2, A6 + 2.0], Element[lista2, A6 + 3.0])
E7 = Angle(Element[lista2, A7 + 1.0], Element[lista2, A7 + 2.0], Element[lista2, A7 + 3.0])
E8 = Angle(Element[lista2, A8 + 1.0], Element[lista2, A8 + 2.0], Element[lista2, A8 + 3.0])
E9 = Angle(Element[lista2, A9 + 1.0], Element[lista2, A9 + 2.0], Element[lista2, A9 + 3.0])
E10 = Angle(Element[lista2, A10 + 1.0], Element[lista2, A10 + 2.0], Element[lista2, A10 + 3.0])
E11 = Angle(Element[lista2, A11 + 1.0], Element[lista2, A11 + 2.0], Element[lista2, A11 + 3.0])
E = Angle(Element[lista2, n], Element[lista2, 1.0], Element[lista2, 2.0])