多边形的周长和面积

GeoGebra 命令及参数

1. Segment(B, C) → e
2. Segment(I, A) → n
3. Segment(A, B) → d
4. Take(listepoint, 1, a) → liste2_1
5. Polygon(liste2_1) → poly1
6. Centroid(poly1) → J
7. Segment(H, If[a ≟ 8, A, I]) → k
8. Segment(G, If[a ≟ 7, A, H]) → j
9. Segment(F, If[a ≟ 6, A, G]) → i
10. Segment(E, If[a ≟ 5, A, F]) → h
11. Segment(D, If[a ≟ 4, A, E]) → g
12. Segment(C, If[a ≟ 3, A, D]) → f
13. Take(listeseg, 1, a) → liste1
14. Length(liste1) → l
15. Sequence(Sum[First[Append[0, liste1], i]], i, 1, l) → liste2
16. Sequence(Polygon[Element[listepoint, i], Element[listepoint, i + 1], J], i, 1, ni) → l3
17. RemoveUndefined(l3) → l4
18. Perimeter(poly1) → b
19. Sum(liste1) → s
20. Sequence(Element[liste1, i], i, 1, ni - 1) → liste3
21. Point(Element[liste1, ni], (p - Element[liste2, ni]) / Element[liste1, ni]) → P
22. Segment(Point[Element[liste1, ni], 0], P) → c
23. Circle(P, 2) → q
24. Sequence(Intersect[q, Element[liste1, i]], i, 1, Length[liste1]) → liste4
25. Sequence(Polygon[J, A, Element[listepoint, i]], i, 1, Length[liste3]) → l1
26. Sequence(CircleSector[J, Element[listepoint, i], Element[listepoint, i + 1]], i, 1, ni - 1) → l2
27. Polygon(liste2_1) → poly2
28. Sum(l4) → o
29. Polygon(Element[listepoint, a], J, Element[listepoint, 1]) → t1, m, r, j_1