Sphères de Pickover

Règles du forum
ATTENTION ! Il est demandé de ne déposer dans ce forum que des exemples en langage Asymptote
  • finalisés
  • que l'on pense intéressants et optimisés
  • et qui se rapportent au thème du forum.
Si certains exemples déposés donnent lieu à de nombreuses modifications, ils seront déplacés et remplacés par un nouveau sujet dans ce forum avec la ou les meilleures propositions.
Pour les demandes d'aide ... il y a un forum spécifique !
Avatar du membre
GM
Administrateur du site
Administrateur du site
Messages : 1512
Enregistré le : dim. 7 mars 2010, 14:50

Sphères de Pickover

Message non lu par GM » mar. 10 juil. 2012, 17:03

Version 3D des cercles de Ford : les sphères de Pickover

Code : Tout sélectionner

import solids;
size(15cm);
currentprojection=orthographic(5,2,2);
currentlight=light(gray(0.5),(5,0,0));
viewportmargin=1cm;
int n=11,
    t[]={0,1,1,n};
void draw_cercle_ford(int a, int b, real c){
  real r = 1/(2*b^2);
  pen p=c*white+(1-c)*yellow;
  render re=render(merge=true);
  draw(surface(sphere((0,a/b,r),r)),p,re);
  draw(surface(sphere((0,a/b,-r),r)),p,re);
  if(a!=0) { draw(surface(sphere((0,-a/b,r),r)),p,re);
             draw(surface(sphere((0,-a/b,-r),r)),p,re); }
}
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();
}


Image


Exemple des Cercles de Ford à voir dans le sous-forum 'Géométrie du plan'.
Index des fonctions - Exemple de lien donnant le résultat d'une recherche sur les mots 'arc' et 'triple' : http://asy.marris.fr/indexasy/?filtre=arc triple
Mes configurations (le 24/02/21) :
PC n°1 :Windows 10 - Asymptote(2.82)+MikTeX2.9 - Editeurs : Notepad++, TeXworks, Visual Studio Code.
PC n°2 : Ubuntu 20.04LTS - Asymptote(2.67-?? git) + TexLive2020
Mon serveur : Debian Stretch- Asymptote(2.68-16 git) + TexLive2018
Merci de préciser la votre !

Répondre