Poster un nouveau sujet Poster une réponse
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   Citer 

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 godgrace.gif

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
 Adresse email Haut de page Bas de page 
 
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   Citer 

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 godgrace.gif bigmouth.gif
Je le poste ce soir si j ai le temps

extraterre.gif
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
 Adresse email Haut de page Bas de page 
 
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   Citer 

Slt TI82-Lexilus, l'IAE ne foctionne pas, elle bloque au niveau de la ligne :

If sous-Chaine(Chaine2 , J ,1) karate.gif

J'ai essayer sde resoudre ce probleme mais sans reussite karate.gif

 Adresse email Haut de page Bas de page 
 
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   Citer 

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 godgrace.gif
 Adresse email Haut de page Bas de page 
 
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   Citer 

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 )

 Adresse email Haut de page Bas de page 
 
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   Citer 

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 cry.gif crazy.gif

@+

----------------------
La programmation : l'avenir d'hier ...........

mes prgm pour ti82 : PrgmHEURE , PrgmCHRONOMÈTRE , PrgmQUITTER
 Adresse email Haut de page Bas de page 
 
adribaz



Autorisation : Membre
Nb de messages : 76
Inscrit le : Sam 13 Déc 2014, 19:11
Posté le : Mer 16 Mar 2016, 11:50   Citer 

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 cupsmiley.gif cupsmiley.gif happy.gif glasses.gif

 Adresse email Haut de page Bas de page 
 
Anonyme
Invité
Posté le : Sam 11 Jui 2016, 14:26   Citer 

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.

  Haut de page Bas de page 
 
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   Citer 

On trouve les Chaines dans var puis Chaine.

 Adresse email Haut de page Bas de page 
 
EDG



Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 29 Fév 2016, 14:12
Posté le : Jeu 08 Sep 2016, 21:09   Citer 

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/
 Adresse email Haut de page Bas de page 
 
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   Citer 

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
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink