IAE |
Auteur |
Message |
Ti82-Lexilus
Autorisation : Membre
Nb de messages : 85
Inscrit le : Dim 13 Déc 2015, 16:27
|
Posté le : Dim 14 Fév 2016, 0:34
|
|
|
Bonjour a tous
En parcourant, le forum espace ti je suis tombé sur un article sur la creation d un IAE qui bien sur n as pas aboutie car tous le monde trouvent cela impossible .....
Comme je suis de nature un peu fou,je vais relever le defi
IAE = Intelligence Artificielle Evolutive
Voici donc le module de traitement du texte que tape l'utilisateur:
(oui je sais 0h30 c'est tard XD )
Code |
EffEcr
Effdessin
EffListte L1
20 ~> dim(L1)
"ABCDEFGHIJKLMNOPQRSTUVWXYZ[théta][1 espace]:?!" ~>Chaine1
Menu ("IAE","PARLER",1,"QUITTER",99
Lbl 1
Imput "PARLER ?",Chaine2
Imput "NBR LETTRES",N
For(J,1,N
For(I,1,30
If sous-Chaine(Chaine2 , J ,1) = sous-Chaine(Chaine1 , I , 1)
Then
I~>L1( J )
30 ~> I
End
End
End
Lbl 99
EffEcr
" "
|
Voila chaque lettre a son numero assigné la liste 1
Prochaine etape : mettre des conditions qui pour un suite de lettre (donc de chiffre dans L1) donne un message
@+
---------------------- La programmation : l'avenir d'hier ...........
mes prgm pour ti82 : PrgmHEURE , PrgmCHRONOMÈTRE , PrgmQUITTER |
|
|
|
Ti82-Lexilus
Autorisation : Membre
Nb de messages : 85
Inscrit le : Dim 13 Déc 2015, 16:27
|
Posté le : Lun 15 Fév 2016, 6:44
|
|
|
Bon j'ai fini le module d enregistrement de l IA. On peut vraiment parler maintenant de IAE
le seul truc c est que si tu lui dis des conneries et bah .... Oui les enregistre et va te les resortir plus tard
Je le poste ce soir si j ai le temps
Si quelqu'un a une idee pour le module de reponse je veux bien car pas trop le temps ......
@+
---------------------- La programmation : l'avenir d'hier ...........
mes prgm pour ti82 : PrgmHEURE , PrgmCHRONOMÈTRE , PrgmQUITTER |
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
adribaz
Autorisation : Membre
Nb de messages : 76
Inscrit le : Sam 13 Déc 2014, 19:11
|
Posté le : Jeu 18 Fév 2016, 14:52
|
|
|
Slt TI82-Lexilus, l'IAE ne foctionne pas, elle bloque au niveau de la ligne :
If sous-Chaine(Chaine2 , J ,1)
J'ai essayer sde resoudre ce probleme mais sans reussite
|
|
|
|
leo_85
Autorisation : Membre
Nb de messages : 132
Inscrit le : Mer 03 Déc 2014, 14:13
|
Posté le : Mar 23 Fév 2016, 13:16
|
|
|
si vous réussissez votre programme se sera l’occasion de prouver qu'ont est malheureusement encore loin de l'intelligence artificielle ^^
---------------------- futur analyste programmeur possesseur d'une TI 82 Plus toute neuve |
|
|
|
adribaz
Autorisation : Membre
Nb de messages : 76
Inscrit le : Sam 13 Déc 2014, 19:11
|
Posté le : Mar 23 Fév 2016, 19:58
|
|
|
Slt g trouver l'erreur ainsi qu'un moyen de l'améliorer, je posterai le prochain message des que je serai sur ordi ( je l'ai enregistré sur libre office )
|
|
|
|
Ti82-Lexilus
Autorisation : Membre
Nb de messages : 85
Inscrit le : Dim 13 Déc 2015, 16:27
|
Posté le : Ven 04 Mar 2016, 21:55
|
|
|
Salut
Tu est sur quel support ?
Moi sur ti82+ ça marche très bien .....
Sinon un ram clear m'as calmé et j'ai perdu la suite de l'IAE
@+
---------------------- La programmation : l'avenir d'hier ...........
mes prgm pour ti82 : PrgmHEURE , PrgmCHRONOMÈTRE , PrgmQUITTER |
|
|
|
adribaz
Autorisation : Membre
Nb de messages : 76
Inscrit le : Sam 13 Déc 2014, 19:11
|
Posté le : Mer 16 Mar 2016, 11:50
|
|
|
Salut, voici les améliorations :
Code |
EffEcr
EffDesssin
EffListe L1
20 -> dim(L1)
"ABCDEFGHIJKLMNOPQRSTUVWXYZ[théta][1 espace]:?!" -> Chaîne1
Menu(" IA EVOLUTIVE ","PARLER",1," QUITTER",99)
Lbl 99
EffEcr
" ":Stop
Lbl 1
Input "PARLER : ",Chaîne2
longueur(Chaîne2)->N
If N>20:Then
EffVar Chaîne2
For([théta],1,900
End:EffEcr
Output(3,5,"ERREUR"
Output(5,4,"MEMOIRE !"
Stop:End
For(J,1,N
For(I,1,30
If (sous-Chaîne(Chaîne2,J,1))=(sous-Chaîne(Chaîne1,I,1)):Then
I->L1(J)
(L1(J))->I
Disp (sous-Chaîne(Chaîne1,I,1))
30 -> I:End
End:End
|
VOila, je l'ai améliorer afin que l'IA puisse écrire ce que nous venons de lui entrer
|
|
|
|
Anonyme
Invité
|
Posté le : Sam 11 Jui 2016, 14:26
|
|
|
Bonjour. J'ai une ti82 advanced. Où trouve-t-on les Chaîne1,... J'ai regarder dans le catalogue et je n'ai pas trouver.
|
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
hellknight71
Autorisation : Membre
Nb de messages : 48
Inscrit le : Lun 14 Déc 2015, 12:49
|
Posté le : Sam 11 Jui 2016, 17:36
|
|
|
On trouve les Chaines dans var puis Chaine.
|
|
|
|
EDG
Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 29 Fév 2016, 14:12
|
Posté le : Jeu 08 Sep 2016, 21:09
|
|
|
on pourrait pas tenter de faire parler l'IAE tout seul sans qu'il nous recopie ?
---------------------- MES PROGRAMMES : http://les-programmes-d-edg.e-monsite.com/ |
|
|
|
Ti82-Lexilus
Autorisation : Membre
Nb de messages : 85
Inscrit le : Dim 13 Déc 2015, 16:27
|
Posté le : Sam 17 Sep 2016, 18:44
|
|
|
Oui j'avais refais le programme et il marchait sur ma ti82+ mais trop de boulot et les piles ont laché....
Tout perdu
---------------------- La programmation : l'avenir d'hier ...........
mes prgm pour ti82 : PrgmHEURE , PrgmCHRONOMÈTRE , PrgmQUITTER |
|
|
|