Hélicoïdes cerclés
f(x)=a + b cos(x)
g(x)=b cos(α) sin(x)
k(x)=b sin(α) sin(x)
Surface(f(u) cos(v) - g(u) sin(v), f(u) sin(v) + g(u) cos(v), k(u) + h v, u, 0, du, v, 0, dv)
Séquence(Surface(f(u) cos(v) - g(u) sin(v), f(u) sin(v) + g(u) cos(v), k(u) + h v, u, 0, du, v, 0 + i π / 4, (i + 1) π / 4), i, 0, n - 1)
SCRIPT:
n=15
Exécute(Séquence("S"+i+"=Element(l1,"+(i)+")", i, 1, n))
Exécute(Séquence("SetDynamicColor( S"+i", "+i+"/n, 1, 1, 1 )",i,1,n))
(couleurs : HSV)D'après https://mathcurve.com : "Les hélicoïdes cerclés sont les hélicoïdes
engendré par le mouvement hélicoïdal d'un cercle." ( https://mathcurve.com/surfaces/helicoidcercle/helicoidcercle.shtml )