Écris en fonction de n : 
- le nombre de sommets
- le nombre de faces
- le nombre d'arêtes

m = 1.7 (slider from 0 to 3, step 0.1)
n = 5 (slider from 3 to 20, step 1)
L_2 = Sequence(Rotate[(0, 3 - m, m), ((2 * i) * π / n)], i, 1, n)
L_{1} = Sequence(Rotate[(0, 3, 0), ((2 * i) * π / n)], i, 1, n)
Base_1 = Polygon(L_{1})
Base_2 = Polygon(L_2)
L_3 = Sequence(Polygon[Element[L_{1}, i], Element[L_2, i], Element[L_2, i + 1], Element[L_{1}, i + 1]], i, 1, n - 1)
poly1, f, g, h, i = Polygon(Element[L_{1}, n], Element[L_2, n], Element[L_2, 1], Element[L_{1}, 1])
L_4 = Insert(poly1, L_3, n)
L_5 = Sequence(Rotate[(0, 3, -4), ((2 * i) * π / n)], i, 1, n)
poly2, j, k, l, p = Polygon(Element[L_{1}, n], Element[L_5, n], Element[L_5, 1], Element[L_{1}, 1])
L_6 = Sequence(Polygon[Element[L_{1}, i], Element[L_5, i], Element[L_5, i + 1], Element[L_{1}, i + 1]], i, 1, n - 1)
L_7 = Insert(poly2, L_6, n)
Base_3 = Polygon(L_5)