le gerfaut
Inscrit le: 06 Mar 2005 Messages: 6 Localisation: lyon
|
Posté le: 07 Mar 2005 13:58 Sujet du message: |
|
|
Je sais que c'est pas très clair et je m'en excuses;
Il faut que les 6 numeros soient choisis de façons a ce que l'ensemble de C soit réduit à 14 series de 6 numeros.(14*15=210)
Cest l'unique condition
Code: | restart;N:=21:
> F:=[seq(f[i],i=1..N)]:
> with(combinat):with(combstruct):
> C:=choose(F,2):
> "1ere serie";u:=[[f[1], f[3]],[f[1], f[5]],[f[1], f[10]],[f[1], f[11]],[f[1], f[17]],
> [f[3], f[5]],[f[3], f[10]],[f[3], f[11]],[f[3], f[17]],[f[5], f[10]],
> [f[5], f[11]],[f[5], f[17]],[f[10], f[11]],[f[10], f[17]],[f[11], f[17]]];nops(u);
"1ere serie"
u := [[f[1], f[3]], [f[1], f[5]], [f[1], f[10]], [f[1], f[11]],
[f[1], f[17]], [f[3], f[5]], [f[3], f[10]], [f[3], f[11]],
[f[3], f[17]], [f[5], f[10]], [f[5], f[11]], [f[5], f[17]],
[f[10], f[11]], [f[10], f[17]], [f[11], f[17]]]
15
> "on a bien 6 numeros: {1,3,5,10,11,17} et 15 paires":
>
|
|
|