Autres rechercher meilleures redondances de combinaisons de n numéros dans tableau

[flipper46]

Bonjour tout le monde!
Je cherche à trouver les combinaisons de x numéros(4,5,6,7,8,9 ou10) qui sortent le plus souvent sur n tirages(200 si pas la possibilité de paramétrer).
J'ai déjà trouver des approchants mais qui restent limités à une vingtaine de tirages(pb de mémoire ou capacité?...)
Mes compétences en VBA sont limitées à des "if then, in case… vous voyez le niveau ;-)
ci-joint un tableau à trier pour exemple.
Merci à ceux qui m'aideront!
ps: si trop lourd pour excel, je me contenterai des 30 premières colonnes...

 

[mapomme]

Re,

Si cela t'intéresse, je te tindrai au fait de mes futurs résultats…

Ah que oui!

 

[Backhandshot]

Re,

Ah que oui!

Bonjour à tous !
Voici quelques tests effectués tous avec 70 colonnes
hier soir j'ai fait toutes les mises 5 pour apprendre que la meilleure mise a sorti 37 fois sur 10567 tirages !

10567 tirages, combines à 5 chiffres, durée de traitement 44 minutes



Ceux-ci 500 tirages toujours avec 70 colonnes

Nb Tirages	Mise	Durée	Sorties +	Nb Mises	Meilleures
500	5	1 m 57 sec	5	6850	8 fois
500	6	12 m 31 sec	3	64904	6 fois
500	7	55 m 14 sec	4	60	5 fois

Plus dur avec les mises 7 (55 minutes)

Ici avec 300 tirages toujours avec 70 colonnes

300	2	0,6 sec	1	2415	41 fois
300	3	2.8 sec	1	54660	18 fois
300	4	13,7 sec	5	20374	9 fois
300	5	1 m 3 sec	5	567	7 fois

C'est très rapide en autant qu'on ne touche pas aux mises à 7 chiffres et plus... à moins de réduire le nombre de tirages

Juste une question comme ça ?
Serait-il possible de modifier le programme qui nous demanderait au départ combien de tirages
voulons nous prendre en compte ? Sinon il faut modifier la liste des tirages à toutes les fois qu'on
veut effectuer une recherche sur 10, 100, 200, 300 tirages etc...

Merci !

Encore une fois un très beau travail

Ma machine est I7-7700 HQ 2.8 GHz avec 12 GO de ram
Au plaisir !!!

 

[mapomme]

Re @Backhandshot

Tout d’abord merci pour tes tests et pour en avoir publié les résultats. Je pense que pour aller plus vite, il faudra passer sur des outils autres que VBA. Mais de toute manière, vu la progression du nombre de combinaisons (7 et plus parmi N), il me semble qu'on atteindra relativement vite la limite raisonnable du temps d'exécution. On pourrait aussi changer d'algorithme. Mais, personnellement, je suis trop imprégné par celui que j'ai pondu pour en envisager un autre (pour l'instant et peut-être pour très longtemps).

Serait-il possible de modifier le programme qui nous demanderait au départ combien de tirages
voulons nous prendre en compte ?

C'est fait. J'ai rajouté un paramètre "Nombre lignes".

J'ai aussi augmenté le nombre de dictionary utilisé pour le stockage temporaire. Ceci me permet de repousser un tout petit peu la limite avant que n'apparaisse (sur mon micro) l'erreur ''mémoire insuffisante".

 

[Backhandshot]

Re @Backhandshot

Tout d’abord merci pour test tests et pour en avoir publié les résultats. Je pense que pour aller plus vite, il faudra passer sur des outils autres que VBA. Mais de toute manière, vu la progression du nombre de combinaisons (7 et plus parmi N), il me semble qu'on atteindra relativement vite la limite raisonnable du temps d'exécution. On pourrait aussi changer d'algorithme. Mais, personnellement, je suis trop imprégné par celui que j'ai pondu pour en envisager un autre (pour l'instant et peut-être pour très longtemps).


C'est fait. J'ai rajouté un paramètre "Nombre lignes".

J'ai aussi augmenté le nombre de dictionary utilisé pour le stockage temporaire. Ceci me permet de repousser un tout petit peu la limite avant que n'apparaisse (sur mon micro) l'erreur ''mémoire insuffisante".

Bonjour à tous !
Encore une fois travail impeccable
J'ai fait quelques tests pour comparer avec toi
toujours avec 70 colonnes, 200 tirages et seuil à 2

5	70	2	350 358	60,1	1 min 00 sec​			350 358	39,4
6	70	2	244 018	207,0	3 min 27 sec​			244 018	132,3	2 min 20
7	70	2	114 445	598,1	9 min 58 sec​			114 445	386,7	6 min 26
8	70	2	Erreur mémoire insuffisante					40507	875,4	14 min 35

Merci pour la modification
Bonne journée

 

[mapomme]

Bonsoir @Backhandshot,

Merci beaucoup . Je commence à songer à renouveler mon matos. Je vois en examinant tes tests que tu es bien plus rapide (histoire de processeur et Ghz) et que je bloque avant toi (histoire de mémoire).

Bonne journée à toi aussi.

 

[flipper46]

Bonsoir à tous!
Un peu débordé ces derniers temps...
Je reviens et je m'aperçois que Mapomme s'est encore dépassé! ;-)
Je ne manquerai pas de vous tenir au jus de mes résultats ...
Pour l'instant, il me faut vérifier la stabilité de ce tableau…
Bonne soirée à vous deux , j'attends un peu avant de cloturé ce post. (je sens que Backhandshot va revenir avec d'autres idées…)

 

[@ntoine]

Bonjour à tous.



Serait'il possible d'avoir une version au format XLS ( excel 2003 ) , pour ceux ayant cette ancienne version d'excel ?

 

[mapomme]

Bonsoir @ntoine,

Serait'il possible d'avoir une version au format XLS ( excel 2003 ) , pour ceux ayant cette ancienne version d'excel ?

Ne disposant pas d'Excel 2003, je ne peux fournir qu'un .xls à partir de 2007 et sans aucune certitude de fonctionnement dans un Excel 2003.

Mais Excel 2003 étant limité à 65536 lignes, vous devrez (à moins d’une adaptation) vous cantonnez à de petites valeurs.

 

[mapomme]

Bonjour @ntoine,

Le samedi 22 février 2020, à 22h03:

Serait'il possible d'avoir une version au format XLS ( excel 2003 ) , pour ceux ayant cette ancienne version d'excel ?

Le dimanche 23 février, à 08h33:

Serait'il possible d'avoir une version au format XLS ( excel 2003 ) , pour ceux ayant cette ancienne version d'excel

Vous avez déjà posé deux fois la même question. Jamais deux sans trois ?

 

[@ntoine]

Bonsoir !

Désole pour le doublon, le message du soir étant le bon !
Celui du matin et bien ; il semblerais que je n'étais pas si bien éveillé que cela diantre ...

Merci mapomme pour ce format XLS, code VBA tres instructif et bien commenté, .
Merci d'avoir pris le temps de transcoder en ce format XLS.

Cela fonctionne sans probléme .

 

[kjoiguygt]

Bonjour le Forum,
Bonne Année à tous et toutes,
Bonjour flipper46,

un essai en fichier joint

Cordialement