Cercles de Ford
Page 1 sur 1
Cercles de Ford
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
]
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|