大きさ

多角形

多角形の外角の和はいくつになるか考えてみましょう。

b = 0 (slider from 0 to 10, step 0.1)
a: 2^((-b))
n = 7 (slider from 3 to 15, step 1)
l1 = Sequence(Rotate[Point[{a, 0}], ((i * 2) * π / n)], i, 0, n - 1)
poly1 = Polygon(l1)
l2 = Sequence(Ray[Rotate[Point[{a, 0}], ((i * 2) * π / n)], Rotate[Point[{a, 0}], (((i + 1) * 2) * π / n)]], i, 0, n)
l3 = Sequence(Angle[Element[l2, i], Element[l2, i + 1]], i, 1, n)

Tool: Tool1
Input: A
Output: h, g

B: (x(A), 0)
C: (0, y(A))
g = Segment(A, C)
h = Segment(A, B)