TeXgraph
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Le Deal du moment : -24%
PC Portable Gaming 15.6″ Medion Erazer Deputy ...
Voir le deal
759.99 €

Cercles de Ford

Aller en bas

Cercles de Ford Empty Cercles de Ford

Message  P.Fradin 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
]

Cercles de Ford Cercle11
P.Fradin
P.Fradin
Admin

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

http://texgraph.tuxfamily.org/

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
Ne ratez plus aucun deal !
Abonnez-vous pour recevoir par notification une sélection des meilleurs deals chaque jour.
IgnorerAutoriser