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

[tama]

Code: Tout sélectionner

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

[MCMic]

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"??

[MCMic]

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

Code: Tout sélectionner

: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

[tama]

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é

[MCMic]

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.

[tama]

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)

[ced78fr]

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

[tama]

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

[Adriweb]

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

[tama]