Cercles de Ford

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

Cercles de Ford

Message non lu par GM » mar. 10 juil. 2012, 16:59

Cercles de Ford

Figure asymptote 5cdd2ba035bb0282d59d7a107ce56148
*** 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
  1. size(300);
  2. int n=11, t[]={0,1,1,n};
  3. void draw_cercle_ford(int a, int b, real c){
  4. real r = 1/(2*b^2); write(a);
  5. filldraw(circle((a/b,r),r),c*white+(1-c)*blue);
  6. if(a!=0) filldraw(circle((-a/b,r),r),c*white+(1-c)*blue);
  7. }
  8. void iteration(){
  9. int k = floor((n+t[1])/t[3]);
  10. t = new int[] {t[2],t[3],k*t[2]-t[0],k*t[3]-t[1]};
  11. }
  12. 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.
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