[W.I.P.] Puissance 4 pour CAS

**Levak** · 10.5/20 /o\

Mic a écrit:

T'as trouvé comment ?
Ouais sans commande getkey, ça va être dur de détecter la saisie de touches dans un programme.

En parcourant le catalogue

char(Num) > correspondance alpha numérique / caractères spéciaux
ord(Chaine) > correspondance Ascii du caractère entré

**Levak** · 10.5/20 /o\

Bon je déterre un peu le sujet, mais c'est parce que j'avais essayer en vain de faire un algo d'IA, mais rien de très concluant, donc j'abandonne, pas trop dans mes habitudes, faut dire que ça dépasse un peu mes connaissances en matière de logique algorithmique

Que pensez-vous de poster la version Nuke edition 7.1 ? (voir les screen shoot précédents)

@+

au passage : c'est mon dernier jour de licence pour TI Nspire Cas software, donc dépêcher vous si ya de lourdes modifs à faire :D

**Mic**

Formate ton PC et réinstalle

_________________
Responsable de TI-BANK (http://www.ti-bank.fr)

Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)

**Levak** · 10.5/20 /o\

Mic a écrit:

Formate ton PC et réinstalle

Ya pire tu sais

Crée un nouveau profil à partir d'un profil vierge et active la licence, au pire on crée 30 profils

charognard

va voir ICI
l'algo n'est pas de moi mais le programme est plutot convaiquant

**Levak** · 10.5/20 /o\

charognard a écrit:

va voir ICI
l'algo n'est pas de moi mais le programme est plutot convaiquant

Excuse moi, je viens seulement de voir ton message. J'ai donc lu tes post, et je ne distingue pas où se trouve la partie de l'algorithme de base pour l'IA

@+

charognard

ligne 1600 à 1990

**Levak** · 10.5/20 /o\

Re, Merci je suis en trian de regarder et j'ai du mal à comprendre soit la syntaxe, soit la logique :S

\\
ligne 1610 : R=A(S+90):IF R=0 THEN 1640
//

"R=A(..)" >> A est un tableau mais à quoi correspond-t-il ?
"THEN 1640" à quoi correspond le numéro de ligne ? à une incolade ? je ne vois pas la logique puisqu'à la condition suivante, il met le numéro de ligne de la 1ere condition...

Je me plonge dans les docs pour CPC @+

edit : viens de comprendre le gosub sauf que maintenant je ne comprends pas où il se situe le sous-programme ??!!

\\
2000 "CALCUL"Z=A(R*9+S):IF A(S+90)>=5LET D=0:GOTO 2050
//

redirige à la ligne 2050

\\
2050 IF A(R+100)>=6THEN 2120
//

et après ? que se passe-t-il si la condition est vrai ? fausse ?

edit 2
Comprends un peu mieux l'algo, mes précédentes questions sont résolue, mais j'ai un nouveau problème...

\\
1870 J=RND 7:IF A(J+90)=0THEN 1870
//

à quoi correspond RND ? rand ou round ? (ou autres)

**Levak** · 10.5/20 /o\

Bon... je comprends rien à l'algo...
J'ai "traduit" en langage TI Nspire pour que les plus expérimentés puissent essayer de comprendre.
Ce qui est énervant c'est que l'algo utilise des variables qui appartiennent au reste du programme, donc c'est pas très facile de comprendre, surtout que la logique n'est pas la même, là on parle de sorte de sous programmes indépendant, chaque ligne (habilement changées en Label) est une fonction...

Spoiler:

vais chercher un algo fait en C/C++ se sera plus simple pour l'adapter je pense, la logique du langage est beaucoup plus proche

!
@+

**Bisam** · 14.8/20 à la 2ème épreuve de l'agreg 2000

Il manque énormément d'informations pour pouvoir conclure à ce que peut bien faire cet algorithme.

Grosso-modo, j'ai l'impression qu'il teste en premier s'il existe une colonne où il peut jouer pour gagner. Ensuite, il teste s'il existe une colonne où il peut empêcher son adversaire de gagner au prochain coup. En 3ème, il cherche s'il peut aligner un 3ème de ses pions avec 2 de ceux qui sont déjà posés. Ensuite, il cherche à empêcher son adversaire de faire la même chose. Enfin, s'il n'a rien trouvé à jouer auparavant, il joue dans une colonne au hasard.

C'est une méthode classique mais assez efficace. Tu ne pourras pas la programmer à partir de ce que tu nous as donné car il manque la partie essentielle : la fonction IA_calc() qui s'occuppe de faire les tests !

**Levak** · 10.5/20 /o\

Bisam a écrit:

C'est une méthode classique mais assez efficace. Tu ne pourras pas la programmer à partir de ce que tu nous as donné car il manque la partie essentielle : la fonction IA_calc() qui s'occuppe de faire les tests !

Justement cette fonction c'est moi qui l'ai remplacée de GOSUB "CALCUL" écrite plus bas (ligne 2000)

Sinon merci pour la traduction, vais voir ce que je peux faire

charognard

RND7 donne un nombre aléatoire entre 1 et 7 on peut utiliser dans certain language INT(RAN#*7)+1

**Levak** · 10.5/20 /o\

Bon j'ai trouvé un site assez intéressant, du moins juste le début m'accroche !
Je vais le consulter :
http://leiber.free.fr/?http://leiber.free.fr/programmation/ia/index.html

@+

**Levak** · 10.5/20 /o\

ptit up : v8.1
l'IA n'a pas beaucoup bougé, juste trouvé un système de jeu intéressant :)
je vous laisse découvrir :

http://levakandcie.dahoster.net/prgm/files/puissance4_v81.tns

**Mic**

Tu veux qu'on mette à jour l'achive sur TI-BANK ?

_________________
Responsable de TI-BANK (http://www.ti-bank.fr)

Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)