Cercles de Ford

Voir le sujet précédent Voir le sujet suivant Aller en bas

Cercles de Ford

Message  P.Fradin le Ven 27 Fév - 13:26

Suite à une demande privée, voici un code pour obtenir les cercles de Ford relatifs à la suite de Farey F10:

Code:

[view(-0.5,1.5,0,1), Marges(0,0,0,0), size(12,1), FillStyle:=full,
 N:=10, A:=0, B:=1, C:=1, D:=N, num:=1,FillColor:=Rgb(Rand(),Rand(),Rand()),
 Cercle(i/2,0.5),
 while C<N do
      Inc(num,1), K:=Ent((N+B)/D),
      E:=K*C-A, F:=K*D-B, A:=C, B:=D, C:=E, D:=F,
      FillColor:=Rgb(Rand(),Rand(),Rand()),
      r:=1/(2*sqr(B)), Cercle(A/B+i*r,r)
      od
]


_________________
P.Fradin

P.Fradin
Admin

Nombre de messages : 1133
Age : 55
Date d'inscription : 19/01/2008

Voir le profil de l'utilisateur http://texgraph.tuxfamily.org/

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum