π
<-

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

Pour le TI-Basic sur Nspire

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

Unread postby Levak » 23 Feb 2009, 14:34

Mic wrote:Formate ton PC et réinstalle :#gni#:

Ya pire tu sais :#roll#:
Crée un nouveau profil à partir d'un profil vierge et active la licence, au pire on crée 30 profils :#cool#:
Responsable design/graphique de TI-Planet
I do not get mad at people, I just want them to learn the way I learnt.
ImageTNOC [topic][DL]
nClock [topic][DL]
HideManager [topic][DL]
ZLock [topic][DL]
Theme Editor [topic][DL]
Mes programmes
User avatar
LevakAdmin
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Level up: 98.9%
 
Posts: 6414
Images: 22
Joined: 27 Nov 2008, 00:00
Location: 0x1AACC355
Gender: Male
Calculator(s):
MyCalcs profile
Class: BAC+5: Epita (ING3)

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

Unread postby charognard » 17 Mar 2009, 14:53

va voir ICI
l'algo n'est pas de moi mais le programme est plutot convaiquant
User avatar
charognard
Niveau 10: GR (Guide de Référence)
Niveau 10: GR (Guide de Référence)
Level up: 81.8%
 
Posts: 869
Joined: 18 Oct 2007, 00:00
Gender: Male
Calculator(s):
MyCalcs profile
Class: sans

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

Unread postby Levak » 23 Mar 2009, 15:53

charognard wrote: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 :|:

@+
Responsable design/graphique de TI-Planet
I do not get mad at people, I just want them to learn the way I learnt.
ImageTNOC [topic][DL]
nClock [topic][DL]
HideManager [topic][DL]
ZLock [topic][DL]
Theme Editor [topic][DL]
Mes programmes
User avatar
LevakAdmin
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Level up: 98.9%
 
Posts: 6414
Images: 22
Joined: 27 Nov 2008, 00:00
Location: 0x1AACC355
Gender: Male
Calculator(s):
MyCalcs profile
Class: BAC+5: Epita (ING3)

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

Unread postby charognard » 26 Mar 2009, 22:26

ligne 1600 à 1990
User avatar
charognard
Niveau 10: GR (Guide de Référence)
Niveau 10: GR (Guide de Référence)
Level up: 81.8%
 
Posts: 869
Joined: 18 Oct 2007, 00:00
Gender: Male
Calculator(s):
MyCalcs profile
Class: sans

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

Unread postby Levak » 08 Apr 2009, 15:39

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)
Responsable design/graphique de TI-Planet
I do not get mad at people, I just want them to learn the way I learnt.
ImageTNOC [topic][DL]
nClock [topic][DL]
HideManager [topic][DL]
ZLock [topic][DL]
Theme Editor [topic][DL]
Mes programmes
User avatar
LevakAdmin
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Level up: 98.9%
 
Posts: 6414
Images: 22
Joined: 27 Nov 2008, 00:00
Location: 0x1AACC355
Gender: Male
Calculator(s):
MyCalcs profile
Class: BAC+5: Epita (ING3)

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

Unread postby Levak » 08 Apr 2009, 17:21

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...
 
Show/Hide spoilerAfficher/Masquer le spoiler
Code: Select all
lbl 1600
 disp "PC"
 N:=4:S:=1:O:=2:M:=45

lbl 1610
 R:=A[S+90]
 if R=0:goto 1640

lbl 1620
 A[R*9+S]:=0
 IA_calc()
 if D=0:A[R*9+S]=-1:goto 1640

lbl 1630
 J:=S:G:=1
 return

lbl 1640
 S:=S+1
 if S8:goto 1610

lbl 1650
 N:=4:S:=1

lbl 1660
 R:=A[S+90]
 if R=0:goto 1690

lbl 1670
 A[R*9+S]=1
 IA_calc()
 if D=0:A[R*9+S]=-1:goto 1690

lbl 1680
 S:=S+1
 if S8:goto 1660

lbl 1690
 for J,111,117
  A[J]=0
 endfor

lbl 1700
 N:=3:S:=1

lbl 1710
 R:=A[S+90]
 if R=0:goto 1730

lbl 1720
 A[R*9+S]:=0
 IA_calc()
 A[S+110]=D/E
 A[R*9+S]=-1

lbl 1730
 S:=S+1
 if S8:goto 1710

lbl 1740
 N:=3:S:=1

lbl 1750
 R:=A[S+90]:if R=0:goto 1770

lbl 1760
 A[R*9+S]:=0
 IA_calc()
 A[S+110]=A[S+110]+D*E
 A[R*9+S]=-1

lbl 1770
 S:=S+1
 if S8:goto 1750

lbl 1780
 N:=3:S:=1

lbl 1790
 R:=A[S+90]
 if R2:goto 1840

lbl 1800
 A[R*9+S]:=0
 R:=R-1
 A[R*9+S]=-1

lbl 1810
 A[S+110}:=-D

lbl 1830
 A[R*9+S]:=-1
 R:=R+1
 A[R*9+S]:=-1

lbl 1840
 S:=S+1
 if S8:goto 1790

lbl 1850
 K:=-50:L:=0
 for J,111,117
  if A[J]K:K:=A[J]
  L:=J-110
 endfor

lbl 1860
 if A[L+90]=0:A[L+110]:=-60
 goto 1850

lbl 1870
 J=RND 7
 if A[J+90]=0:goto 1870

lbl 1880
 if A[J+110]=K:RETURN

lbl 1890
 J:=L:RETURN


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 :;): !
@+
Responsable design/graphique de TI-Planet
I do not get mad at people, I just want them to learn the way I learnt.
ImageTNOC [topic][DL]
nClock [topic][DL]
HideManager [topic][DL]
ZLock [topic][DL]
Theme Editor [topic][DL]
Mes programmes
User avatar
LevakAdmin
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Level up: 98.9%
 
Posts: 6414
Images: 22
Joined: 27 Nov 2008, 00:00
Location: 0x1AACC355
Gender: Male
Calculator(s):
MyCalcs profile
Class: BAC+5: Epita (ING3)

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

Unread postby Bisam » 08 Apr 2009, 17:47

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 !
User avatar
BisamAdmin
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 69.6%
 
Posts: 5670
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender: Male
Calculator(s):
MyCalcs profile

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

Unread postby Levak » 08 Apr 2009, 17:59

Bisam wrote: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 :;):
Responsable design/graphique de TI-Planet
I do not get mad at people, I just want them to learn the way I learnt.
ImageTNOC [topic][DL]
nClock [topic][DL]
HideManager [topic][DL]
ZLock [topic][DL]
Theme Editor [topic][DL]
Mes programmes
User avatar
LevakAdmin
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Level up: 98.9%
 
Posts: 6414
Images: 22
Joined: 27 Nov 2008, 00:00
Location: 0x1AACC355
Gender: Male
Calculator(s):
MyCalcs profile
Class: BAC+5: Epita (ING3)

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

Unread postby charognard » 10 Apr 2009, 23:58

RND7 donne un nombre aléatoire entre 1 et 7 on peut utiliser dans certain language INT(RAN#*7)+1
User avatar
charognard
Niveau 10: GR (Guide de Référence)
Niveau 10: GR (Guide de Référence)
Level up: 81.8%
 
Posts: 869
Joined: 18 Oct 2007, 00:00
Gender: Male
Calculator(s):
MyCalcs profile
Class: sans

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

Unread postby Levak » 20 Apr 2009, 09:22

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.fr ... index.html

@+
Responsable design/graphique de TI-Planet
I do not get mad at people, I just want them to learn the way I learnt.
ImageTNOC [topic][DL]
nClock [topic][DL]
HideManager [topic][DL]
ZLock [topic][DL]
Theme Editor [topic][DL]
Mes programmes
User avatar
LevakAdmin
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Level up: 98.9%
 
Posts: 6414
Images: 22
Joined: 27 Nov 2008, 00:00
Location: 0x1AACC355
Gender: Male
Calculator(s):
MyCalcs profile
Class: BAC+5: Epita (ING3)

PreviousNext

Return to Nspire-Basic

Who is online

Users browsing this forum: ClaudeBot [spider] and 2 guests

-
Search
-
Social TI-Planet
-
Featured topics
Comparaisons des meilleurs prix pour acheter sa calculatrice !
"1 calculatrice pour tous", le programme solidaire de Texas Instruments. Reçois gratuitement et sans aucune obligation d'achat, 5 calculatrices couleur programmables en Python à donner aux élèves les plus nécessiteux de ton lycée. Tu peux recevoir au choix 5 TI-82 Advanced Edition Python ou bien 5 TI-83 Premium CE Edition Python.
Enseignant(e), reçois gratuitement 1 exemplaire de test de la TI-82 Advanced Edition Python. À demander d'ici le 31 décembre 2024.
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
1234
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...
Donate
Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partner and ad
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
908 utilisateurs:
>825 invités
>76 membres
>7 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)