begin process at 2008 08 20 15:21:29
1 228 895 membres
260 nouveaux aujourd'hui
14 259 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

PUISSANCE 4 AVEC IA (ARBRE DE JEUX)


Information sur la source

Catégorie :Jeux Classé sous : puissance4, connect, jeu, pion, ia Niveau : Initié Date de création : 10/07/2005 Date de mise à jour : 25/07/2005 00:12:47 Vu / téléchargé: 10 143 / 778

Note :
10 / 10 - par 3 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (16)
Ajouter un commentaire et/ou une note

Description

Une IA est intégrée. Elle se defend pas mal.
On a la possibilité d'exporter l'image de la partie en bitmap ou jpeg.
L'éxécutable est autonome, les images étant contenu dans celui-ci.

Je sais qu'il existait déjà des "Puissance 4" sur ce site. Mais, je n'en ai pas vu beaucoup qui utilisait une IA.
De plus, pour ceux que ca interesse, j'ai implémenté un algo d'arbre de jeux.

Conclusion

La théorie de l'algorithme Min-Max.

- On crée un arbre dont chaques branches représentent un coup joué.
- Ensuite si à la suite de ce coup, il ne se passe rien, je donne une note de 0 au noeud. Si celui-ci me fait gagner la partie je donne une note de 10000. Enfin si celui-ci me fait perdre je donne une note de -10000.
- Je parcours alors l'arbre (en fait je le remonte puisque l'algo est récursif) en gardant la branche la mieux notée.
- Théoriquement, l'IA jouerait de facon optimal, et serait IMBATTABLE.

Malheureusement, le nombre de combinaison possible augmente exponentiellement. Construire un arbre de jeu entier est pour l'instant impossible. C'est pourquoi on est obligé de stopper l'algo à une certaine profondeur.
De plus, on peux simplifier l'algo à l'aide de la méthode Alpha-Beta. Celle-ci consiste à ne pas parcourir toutes les branches de l'arbre. En effet, si un score est trop élevé ou trop faible, certaines branches ne valent pas le coup d'être explorées.
J'ai ajouté quelques optimisations propre à mon application.
Par exemple, je donne aussi un score lorsque je trouve des formations incompletes:
- 4 pions : 10000 points
- 3 pions : 100 points
- 2 pions : 1 points
Ainsi, j'ai plus de précision lors du choix de la branche de l'arbre.
Enfin, je ne parcours une branche que si c'est nécessaire. Je m'explique, si je n'ai pas le droit de poser dans une colonne (en vérifiant le "tableau d'interdit" que j'expliquerai après), alors le noeud et tout ses fils ne seront pas parcourus.

L'implementation de mon IA.

L'IA fonctionne comme ceci:
- Tout d'abord on verifi si on peux jouer un coup qui nous fait immédiatement gagner.
- Ensuite on verifi si on peux jouer un coup qui nous empêcherait de perdre sur le champ.
- Si on est dans aucun des cas ci-dessus, alors on inspecte le tableau des colonnes interdites.
Ce tableau est crée en même temps que les deux verifications précédentes. C'est simple, si lors de ma vérification je détecte que la position d'un pion entrainerait obligatoirement la défaite au coup suivant (deux coup apres en fait), je l'indique dans ce tableau. L'IA n'a alors plus le droit de poser un pion dans cette colonne, jusqu'à ce qu'un changement soit fait. De même, j'interdit de placer un pion dans une colonne, si le placement détruit une formation (par exemple trois de mes pions alignés). Ce tableau contient alors un état par colonne.
Les 3 états sont:
* AUCUN : on peut poser dans cette colonne.
* PLACER : poser dans cette colonne détruit une de nos formation.
* EMPECHER : poser dans cette colonne ferait gagner l'adversaire.

Pour en revenir à la méthode, j'inspecte le tableau d'interdit de la facon suivante:
- Si il reste des colonnes ou je peux placer, je lance l'aglorithme Min-Max (arbre des jeux expliqué ci-dessus).
- Si il ne reste plus de place, alors je sacrifie une de mes formations (c'est ca ou donner la victoire à l'adversaire), et je place un de mes pions dans une colonne (marqué PLACER)
- Si il ne reste plus de colonne à placer, et aucune de ses formations à sacrifier, alors la partie est perdu. On place (à contre coeur) le pions qui fera gagner l'adversaire.

Si vous voyez des améliorations à apporter, n'hésitez pas à me contacter.
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • img.resTélécharger ce fichier [Réservé aux membres club]23 072 octets
  • Main.dfmTélécharger ce fichier [Réservé aux membres club]22 927 octets
  • Main.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier42 604 octets
  • Puissance4.dprTélécharger ce fichier [Réservé aux membres club]Voir ce fichier236 octets
  • Puissance4.resTélécharger ce fichier [Réservé aux membres club]876 octets

Télécharger le zip

10 juillet 2005 18:27:20 :
Les fautes d'orthographes...
10 juillet 2005 18:41:37 :
J'avais laisser le .exe ... Je suis bête des fois.
11 juillet 2005 00:41:09 :
Mes anciennes mises à jour n'ont pas été pris en compte...
14 juillet 2005 23:49:46 :
Amélioration de l'IA. Ajout d'un algorithme d'arbre des jeux. (Algorithme Min-Max simplifié par la méthode Alpha-Beta)
16 juillet 2005 13:40:55 :
Petites améliorations.
25 juillet 2005 00:12:47 :
Petites optimisations + Conseil de GrandVizir
  • signaler à un administrateur
    Commentaire de bloom1 le 11/07/2005 03:33:47

    Aaah, je te gage que tu utilises Delphi 2005 :@ je le haie, on peut même pas faire de réseau dedans :S
    Au juste, a quoi sert XPMan dans les uses ???

  • signaler à un administrateur
    Commentaire de CptPingu le 11/07/2005 03:43:34

    A non pas du tout, je suis sous delphi 7.
    XPMan sert à avoir le style XP pour les applications.

  • signaler à un administrateur
    Commentaire de DelphiCool le 13/07/2005 01:37:59 administrateur CS

    Pour le bug c'est cette ligne qui le créer
    DoubleBuffered  := True;

    Bizarre ???

  • signaler à un administrateur
    Commentaire de CptPingu le 13/07/2005 01:57:09

    Je te remercie d'avoir trouvé l'erreur. Par contre je doit laisser le "DoubleBuffered  := True;" sinon la grille du jeu scintille de temps en temps.
    Est-ce normale que cette commande et les TCheckBox ne puissent cohabiter ?

    Si tu as une explication, je t'en remercie.

  • signaler à un administrateur
    Commentaire de bloom1 le 14/07/2005 20:21:22

    Ah ben j'ai compris, moi je suis sous Delphi 6 alors XPMan existe pas... Est-ce que Delphi 7 ressemble beaucoup a Delphi 6 ???
    Merci d'avance !


    Bloom1 :)

  • signaler à un administrateur
    Commentaire de DelphiCool le 14/07/2005 20:40:41 administrateur CS

    pour résoudre ton probleme il te faut supprimer tout les xpman que tu as mis.
    Et mettre ce compo à la place www.shagrouni.com/english/software/xpmenu.html

  • signaler à un administrateur
    Commentaire de bloom1 le 14/07/2005 20:42:10

    ah oki mais c'étais plus ca ma question... Est-ce que Delphi 7 ressemble a Delphi 6 ou 2005, et est-ce qu'il est bien ???

  • signaler à un administrateur
    Commentaire de DelphiCool le 14/07/2005 20:46:25 administrateur CS

    désolé je répondais à CptPingu.

    Tout les delphi se ressmble sauf qu'il y a de nouvelle fonctionnalité à chaque fois.

    perso j'ai pas accroché sur delphi 2005.
    Si tu veux passer du 6 au 7, sache que FastNet n'existe plus.

  • signaler à un administrateur
    Commentaire de bloom1 le 14/07/2005 20:48:04

    Ah :( mais moi aussi delphi 2005 m'a pas accroché, surtout qu'il a même pas les fonctionnalités réseau !
    En tout cas, si quelqu'un connais un lien ou télécharger delphi 7 gratuit (pas de trial) genre version perso, bien donnez-moi le !
    Merci d'avance :)

    Bloom1

  • signaler à un administrateur
    Commentaire de DelphiCool le 14/07/2005 20:59:12 administrateur CS

    pas de lien de ce style ici :|

  • signaler à un administrateur
    Commentaire de bloom1 le 14/07/2005 21:00:10

    Bon bien merci quand même !

  • signaler à un administrateur
    Commentaire de CptPingu le 14/07/2005 21:26:40

    Ok je te remerci DelphiCool.
    Mais j'aimerais le faire sans compo de préférence.
    Je mettrai donc ton lien dans ma prochaine mise à jour. (j'ai bientôt terminé de coder un arbre de jeu)

  • signaler à un administrateur
    Commentaire de grandvizir le 18/07/2005 12:19:03

    J'ai testé ton prog... Très surprenant et bien fait ! J'ai des remarques:
    1) VARIANTS => destruction
    2) Renomme ta variable JPEG qui fait confusion dans le USES
    3) Fait un bloc INITIALIZATION et FINALIZATION dans MAIN.PAS dans lequel tu insèreras respectivement tes NEW(Pointeur) et DISPOSE(Pointeur)
    4) Concernant l'IA: je savais que ma technique de jeu était bien rodée, mais je n'espérais quand même pas rester imbattable consécutivement pendant mes 10 premières parties. Faudra du coup peut-être envisager une version en réseau (entre humains quoi!) histoire d'affronter le Kasparov du puissance 4.
    5) Par défaut, ça ne scintille pas :)

    Au final: bravo et félicitations ! 10/10

  • signaler à un administrateur
    Commentaire de CptPingu le 24/07/2005 23:31:53

    1) et 2) je n'ai pas compris.
    3) Ok, tu as raison, ca sera facilement corrigé.
    4) J'ai beau essayé de parcourir l'arbre le plus profondemment possible, un humain sera toujours plus fort.
    5) Sur ma version (Delphi 7), cela scintillait, libre à l'utilisateur de laisser ou non DoubleBuffered:=True.

  • signaler à un administrateur
    Commentaire de CptPingu le 24/07/2005 23:38:20

    1), 2) et 3) Ok,finalement j'ai compris c'est corrigé.
    4) Si tu as une idée pour amélioré l'IA, je suis preneur.

    Désoler du double post.

  • signaler à un administrateur
    Commentaire de grandvizir le 25/07/2005 17:08:49

    Ma technique repose simplement sur une profondeur de 2 : je ne regarde pas si une situation est gagnante ou pas (dans ce cas, un logiciel d'un Othello jouerait la position qui lui offre le maximum de pions), je prépare les alignements des 4 pions. C'est plus une devinette poussée sur l'instant qu'il faut plutôt qu'un arbre profond qui ne fait que diverger du coup optimal.

    Ca m'intéresserai aussi que tu implémentes un compteur de vitesse grâce à GetTickCount (résultat en millisecondes) afin de voir à quelle vitesse va ton prog. J'avais été étonné de mon MD5, et j'aimerais bien voir ce que ça donne sur ton prog : on devrait facilement arriver à plus de 750 000 coups/sec, je pense.

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS