tribus Boreliennes aux Fraise

[ortollj]

Bonjour
j'ai voulu faire un petit fichier en VBA (alt F11 pour voir le code) qui donne les tribus Boreliennes
d'un ensemble qu'on ecrit sur la ligne 1 de la page acceuil
cela fonctionne pour a,b,c et a,b,c,d je retrouve bien le nombre de BELL,mais cela plante sur a,b,c,d,e avec le message "depassement de capacité" et cela s'arrete a 51 (alors que le nombre de BELL=52)
je ne comprends pas ce qui ne va pas dans mon code.
j'ai choisi la methode "gros Bourrin" pour construire les tribus, cad je trouve l'ensemble des partitions de Omega
et je fais des OU et des ET logiques de tous les elements entre eux de ces differentes partitions,(j'ai au prealable rajoutés les complements de chaque élément). Si je trouve un resultat de ces 2 operations logiques
qui n'est pas deja dans la partition alors ca n'est pas une tribu.
si quelqu'un peut me dire ce qui ne va pas.

 

[mapomme]

Re : tribus Boreliennes aux Fraise

Bonsoir ortollj,

Sans avoir lu à fond votre code, en remplaçant les déclarations de variables de type Integer par le type Long, le code passe avec succès l'étape à cinq éléments (a,b,c,d,e) après un temps certain il est vrai. Le résultat présente 52 lignes surlignées en vert qui doivent correspondre au nombre de Bell.

 

[ortollj]

Re : tribus Boreliennes aux Fraise

Merci Mapomme (j'ai l'impression de me remercier moi meme ! )
effectivement ca passe en remplacant tous les Integer par des Long.
mais le temps de traitement est prohibitif (un peu plus de 4 minute sur mon PC)
je n'ose pas essayer a,b,c,d,e,f.
je me demande si cela n'est pas la fonction Sort de System.Collections.ArrayList
qui se prend les pieds dans le tapi.