"slicing and twisting" (with regulars polygons) .
Script du bouton "Générer"
Exécute(Séquence("F"+i+"=Element(l3,"+(i)+")", i, 1, n))
Exécute(Séquence("P"+i"=Rotate(Element(l1,"+(i)+"),F"+i+"(T)*α,g)", i, 1, n))
Exécute(Séquence("SetDynamicColor( P"+i", F"+i+"(T), 1, 1, 1 )",i,1,n))
Ceci est une variante de l'activité : https://www.geogebra.org/m/gkgvxdt3
nc : nombre de côtés du polygone régulier.
n: nombre de "tranches" (Prismes droits à base polygonales de côtés lc et de hauteur variable)