Cercles de Ford
Posté : mar. 10 juil. 2012, 16:59
Cercles de Ford
Chercher dans le sous-forum 'Géométrie de l'espace', pour une extension à l'espace : les sphères de Pickover.
*** Pour masquer/découvrir le code Asymptote qui a permis de créer la figure, il faut cliquer dessus. ;-) ***
- CODE ASYMPTOTE de la figure ci-dessus : Tout sélectionner
- size(300);
- int n=11, t[]={0,1,1,n};
- void draw_cercle_ford(int a, int b, real c){
- real r = 1/(2*b^2); write(a);
- filldraw(circle((a/b,r),r),c*white+(1-c)*blue);
- if(a!=0) filldraw(circle((-a/b,r),r),c*white+(1-c)*blue);
- }
- void iteration(){
- int k = floor((n+t[1])/t[3]);
- t = new int[] {t[2],t[3],k*t[2]-t[0],k*t[3]-t[1]};
- }
- while (t[2]<=n){ draw_cercle_ford(t[0], t[1], t[2]/n); iteration(); }
Chercher dans le sous-forum 'Géométrie de l'espace', pour une extension à l'espace : les sphères de Pickover.