cercle de rayon 1

nombre de côtés du polygone inscrit

aire du polygone

α = 1.7976891295541595 rad (slider from 0 to 3.141592653589793, step 0.017453292519943295)
texte2: α + ""
i = (0, 1)
a = 3 (slider from 3 to 200, step 1)
liste2 = Sequence((cos(i * 3.1416 / (0.5 * a)), sin(i * 3.1416 / (0.5 * a))), i, 0.0, a)
A = Point(xAxis)
B = Point(xAxis)
F = Intersect(xAxis, yAxis)
C = Circle(F, A)
liste1 = Sequence(Polygon[Element[liste2, i], Element[liste2, i + 1.0], F], i, 1.0, a)
poly1, f, b, c = Polygon(Element[liste2, 1.0], Element[liste2, 2.0], F)
texte3: a * poly1 + ""
poly2 = Polygon(Element[liste2, 1.0], Element[liste2, 2.0], a)