Transformer une chaine de caractères en valeur numérique

→ **MyCalcs** profile · by **tama** » 07 Jun 2006, 12:09

Code: Select all: ClrHome Input "A?",A //demande A {A,A-L1 // stocke {A,A dans la liste 1 2-dim(L2 // crée une liste vide L2 avec 2 éléments (L2={0,0}) For(B,1,2 //début de la boucle B-L2(B // stocke B dans la liste L2 End //fin de la boucle 2-dim(L3 // crée une liste vide L3 Fill(1,L3 // remplit L3 avec la valeur 1 LinReg(ax+b) L2,L1,L3,Y1 // régression linéaire, stocke le résultat dans Y1 (en fait ça va faire : Y1="0X+A" EquString(Y1,Str0 // stocke Y1 dans Str0 (Str0="0X+A" (EquString : chercher dans le catalogue [2nd]+[0]) length(Str0-B // détermine la taille de Str0 sub(Str0,4,length(Str0)-3-Str0 // extrait A Disp Str0 // affiche Str0 FnOff 1 // Désactive Y1 ClrList L1,L2,L3,LRESID // Efface toutes les listes créées

¨
Pour la taille ça prend à peine 150 et puis pour les listes elles s'effacent à la fin et tu peux changer le nom

→ **MyCalcs** profile · by **MCMic** » 07 Jun 2006, 14:18

ayé j'ai compris.

PS:à part "régression linéaire", mais j'ai compris le principe de ton code quoi.

PS2:mais pourquoi tu met "For(B,1,2)
B-L2(B)
End" au lieu de "{1,2-L2"??

→ **MyCalcs** profile · by **MCMic** » 07 Jun 2006, 14:30

alors:
1)ça marche
2)version simplifiée:

Code: Select all: :Clrhome :Prompt A :{A,A-L1 :{1,2-L2 :{1,1-L3 :LinReg(ax+b) L2,L1,L3,Y1 :EquString(Y1,Str1 :Sub(Str1,4,lenght(Str1)-3-Str1 :Disp Str1

→ **MyCalcs** profile · by **tama** » 07 Jun 2006, 16:10

oui c'est sûr

mais je l'ai programmé à 00h00 après une journée assez chargée alors je pouvais plus trop réfléchir

merci sinon pour le code optimisé

→ **MyCalcs** profile · by **MCMic** » 07 Jun 2006, 16:51

tama wrote:oui c'est sûr
mais je l'ai programmé à 00h00 après une journée assez chargée alors je pouvais plus trop réfléchir

merci sinon pour le code optimisé

quels sont les attributs de linreg et son fonctionnement stp.

→ **MyCalcs** profile · by **tama** » 07 Jun 2006, 17:21

linreg c'est une régression linéaire ça sert à trouver l'équation d'une fonction passant par le maximum de points possibles grâce à deux listes (une pour les abcisses et une pour les ordonnées)

→ **MyCalcs** profile · by **ced78fr** » 07 Jun 2006, 19:11

Bien trouvé ! J'avoue...
Mais c'est b^te que la fonction n'existe pas toute faite, d'accord avec Yakamya

→ **MyCalcs** profile · by **tama** » 08 Jun 2006, 12:55

oui d'où l'avantage d'avoir une 68k ^^

My calculator programs · by **Adriweb** » 03 Jun 2007, 18:30

et oui ! lol
mais le code optimisé est pas mal, et puisqu'il prend pas beaucoup de mémoire, c'est pas un programme de plus ou de moins qui va changer la face du monde ^^. En plus, c'est utile assez souvent ...