begin process at 2010 03 19 05:55:44
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Jeux

 > PUISSANCE 4 AVEC IA (ARBRE DE JEUX)

PUISSANCE 4 AVEC IA (ARBRE DE JEUX)


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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é :13 409 / 913

Auteur : CptPingu

Ecrire un message privé
Site perso
Commentaire sur cette source (16)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
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.

 Fichier Zip

Les Membres Club peuvent 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


 Historique

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

 Sources du même auteur

Source avec Zip Source avec une capture SKINNER UNE APPLICATION SANS COMPOSANTS
Source avec Zip TUTORIAL LISTES CHAINÉES
Source avec Zip Source avec une capture CONVERTISSEUR ECRITURE POLONAISE -> NORMALE
Source avec Zip CALCULATRICE ECRITURE POLONAISE
Source avec Zip JEU OTHELLO

 Sources de la même categorie

Source avec Zip Source avec une capture JEU DE DÉS ZORG6 par dubois77
Source avec Zip Source avec une capture JOUEZ : LIGHTS 1.4 par JulioDelphi
Source avec Zip Source avec une capture JEU DE DAME DELPHI 7 par aom333
Source avec Zip JEU RAMI DES CHIFFRES SOLITAIRE par Toidil
Source avec Zip JEU DE TAQUIN par JCLESAGE

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture MORPIONS® : JEU DU MORPIONS, CHRONOMÉTRÉ, SUR UNE GRILLE 3X3... par JULGEISS
Source avec Zip JEU OTHELLO par CptPingu
Source avec Zip LES POINTEURS : LE PETIT JEU DU SERPENT... par PyRuSs
Source avec Zip Source avec une capture BATAILLE DE CARTES AVEC INTELLIGENCE ARTIFICIELLE par grandvizir
Source avec Zip PUISSANCE 4 par KimbleMandel

Commentaires et avis

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 ???

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.

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 ???

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.

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 :)

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

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 ???

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.

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

Commentaire de DelphiCool le 14/07/2005 20:59:12 administrateur CS

pas de lien de ce style ici :|

Commentaire de bloom1 le 14/07/2005 21:00:10

Bon bien merci quand même !

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)

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

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.

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.

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


Discussions en rapport avec ce code source dans le forum

help!!!!!svp les best en delphi :) [ par eedy31 ] j'ai un gro pblém : je debute en delphi et il me fo du temps pour apprendre!!!ET le pblém c'est que mon père monopolise le PC avec son jeu(atlantis3.. Jeu avec le source [ par Synthox ] Si ca vous dis de faire un jeu de carte, je vous met mes sources en telechargement sur mon site, il contiens aussi un fichier RES avec les cartes de t Comment faire les menus d'un jeu en Delphi ?! Vite ça presse ! [ par Gropoli ] Je suis entrain de faire un jeu de type wargame en delphi et je me demande comment je dois faire les menus du jeu : menu principal (nouveau jeu, optio Comment faire les menus d'un jeu en Delphi ?! Vite ça presse ! [ par Gropoli ] Je suis entrain de faire un jeu de type wargame en delphi et je me demande comment je dois faire les menus du jeu : menu principal (nouveau jeu, optio Recherche de code pour jeu d'enregistrement [ par clemot ] Salut je recherche un exemple ou des exemples de code pourun jeu d'enregistrement à partir de TDBCtrlGrid et de stringgrid pouyr enregistrer des donn Direct Connect en Delphi [ par aroslide ] Recherche personnes ayant travaillé sur le protocol Direct Connect afin de réaliser en collaboration un serveur Direct Connect plus leger et plus sta Jeu de strategie avec directdraw [ par sebrs1 ] Tout d'abord, je vais vous expliquer ce que je veux fairec'est tout simple (enfin, simple a comprendre mais pas a faire)je voudrais faire un truc genr Cherche dessinateur [ par sebrs1 ] Bonjourje cherche un dessinateur qui pourrait m'aider dans les graphisme et animations de mon jeuc'est un jeu en directdraw en isometrique genre jeux programmation jeu de dames sur delphi4.0 en pascal [ par Laurie ] Comment programmer un jeu de dames avec un stringgrid pour que les pionts ne puissent pas reculer? Comment faire apparaître une dame et controler ses DelphiX: ralentissements!! [ par costello ] AAAARGGHH (cri de détresse) ! je développe 1 jeu depuis quelques jours, sous DelphiX / Delphi 7 perso (tout tourne très bien jusqu'à maintenant, ya ja


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,562 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales