Diagonale v večkotniku

Robovi mnogokotnika

Mnogokotniku očrtana krožnica

Diagonale

Števil diagonal v 

- kotniku je 

A22 = 0
a = 3
S = Intersect(yAxis, xAxis)
c = Circle(S, a)
A = Point(c)
n = 3 (slider from 3 to 20, step 1)
α: 360.0° / n
tocke = Sequence(Rotate[A, i * α, S], i, 0.0, n)
robovi = Sequence(Segment[Element[tocke, i], Element[tocke, i + 1.0]], i, 1.0, n)
A3 = 2
A2 = 1
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
A12: 2.0 * A11 - A10
A13: 2.0 * A12 - A11
A14: 2.0 * A13 - A12
A15: 2.0 * A14 - A13
A16: 2.0 * A15 - A14
A17: 2.0 * A16 - A15
A18: 2.0 * A17 - A16
A19: 2.0 * A18 - A17
A20: 2.0 * A19 - A18
A21: 2.0 * A20 - A19
B2 = If(A2 ≤ n, Element[tocke, A2], If[A2 ≟ n + 1.0, Element[tocke, 1.0]])
B3 = If(A3 ≤ n, Element[tocke, A3], If[A3 ≟ n + 1.0, Element[tocke, 1.0]])
B4 = If(A4 ≤ n, Element[tocke, A4], If[A4 ≟ n + 1.0, Element[tocke, 1.0]])
B5 = If(A5 ≤ n, Element[tocke, A5], If[A5 ≟ n + 1.0, Element[tocke, 1.0]])
B6 = If(A6 ≤ n, Element[tocke, A6], If[A6 ≟ n + 1.0, Element[tocke, 1.0]])
B7 = If(A7 ≤ n, Element[tocke, A7], If[A7 ≟ n + 1.0, Element[tocke, 1.0]])
B8 = If(A8 ≤ n, Element[tocke, A8], If[A8 ≟ n + 1.0, Element[tocke, 1.0]])
B9 = If(A9 ≤ n, Element[tocke, A9], If[A9 ≟ n + 1.0, Element[tocke, 1.0]])
B10 = If(A10 ≤ n, Element[tocke, A10], If[A10 ≟ n + 1.0, Element[tocke, 1.0]])
B11 = If(A11 ≤ n, Element[tocke, A11], If[A11 ≟ n + 1.0, Element[tocke, 1.0]])
B12 = If(A12 ≤ n, Element[tocke, A12], If[A12 ≟ n + 1.0, Element[tocke, 1.0]])
B13 = If(A13 ≤ n, Element[tocke, A13], If[A13 ≟ n + 1.0, Element[tocke, 1.0]])
B14 = If(A14 ≤ n, Element[tocke, A14], If[A14 ≟ n + 1.0, Element[tocke, 1.0]])
B15 = If(A15 ≤ n, Element[tocke, A15], If[A15 ≟ n + 1.0, Element[tocke, 1.0]])
B16 = If(A16 ≤ n, Element[tocke, A16], If[A16 ≟ n + 1.0, Element[tocke, 1.0]])
B17 = If(A17 ≤ n, Element[tocke, A17], If[A17 ≟ n + 1.0, Element[tocke, 1.0]])
B18 = If(A18 ≤ n, Element[tocke, A18], If[A18 ≟ n + 1.0, Element[tocke, 1.0]])
B19 = If(A19 ≤ n, Element[tocke, A19], If[A19 ≟ n + 1.0, Element[tocke, 1.0]])
B20 = If(A20 ≤ n, Element[tocke, A20], If[A20 ≟ n + 1.0, Element[tocke, 1.0]])
B21 = If(A21 ≤ n, Element[tocke, A21], If[A21 ≟ n + 1.0, Element[tocke, 1.0]])
B1 = Element(tocke, n)
B22: A
diag = Sequence(Sequence[Segment[Object["B" + (j)], Object["B" + (j + i)]], i, 2.0, n - 2.0], j, 1.0, n)
b = true
d = true
e = true
tekst2: n + ""
A24: n * (n - 3.0) / 2.0
tekst4: A24 + "."