Belles courbes

Je pense qu'il serait sympa de publier sous ce post les équations des plus jolies courbes ou surfaces auxquelles vous avez eu affaire dans votre vie de matheux, ou autre...
Je commence la série avec ce graphique (Maple):

>with(plots):
>R:=10: N:=25: f:=(x,y)->cos(x):
>tore:=tubeplot(
[R*sin(t),R*cos(t),0,t=0..2*Pi,radius=2,numpoints=2*N],scaling=CONSTRAINED,style=PATCHNOGRID,orientation=[76,40],color=f):
>tube:=tubeplot(
[sin(t)*(R+R/2*cos(7*t)),cos(t)*(R+R/2*cos(7*t)),R/2*sin(7*t),t=0..2*Pi,radius=1,numpoints=500,tubepoints=N],scaling=CONSTRAINED,style=PATCHNOGRID,orientation=[76,40]):
> plots[display]([tore,tube]);1943

Réponses

Connectez-vous ou Inscrivez-vous pour répondre.