ÉVALUATION EXPRESSIONS MATHÉMATIQUES

Commentaire de MAURICIO le 25/02/2008 18:32:29

Salut Barbichette,

je n' ai pas jeté un oeil approfondi sur les code mais ça samblait très bien organisé comme à ton habitude.

J' ai testé la fonction graphique et malheureusement il n' y a pas d' option Zoom ...

Bravo en tout cas pour cette source interessante!
A+

Commentaire de barbichette le 25/02/2008 21:19:33

Sinon, je vais donner quelques explications quand même.

1 - Oui, il n'y a pas de zoom, ni rien d'autre d'ailleurs car c'était juste pour donner une petite façon d'utiliser les classes.

2 - En fait, on donne une expression à la classe TExpression, qui ce charge de la convertir en notation polonaise inverse une seule fois.
Ensuite, on peut demander d'évaluer l'expression plusieurs fois avec des constantes différentes sans que la classe refasse toute la préparation de la pile d'évaluation.

3 - j'ai un peu merdé sur les noms. En effet, les "constantes" sont surtout des "variables"... Mais j'avait la flemme de tout reprendre les noms...

4 - On peut créer des fonctions avec plusieurs arguments. Comme dans cette exemple, il y a la fonction LOGN qui calcule le logarithme en base N. Il prend donc la base et le nombre. Les arguments sont séparés par un point-virgule.
donc logn(5;5^3)=3

Voilà pour un petit tour d'horizon...

Commentaire de barbichette le 10/03/2008 14:30:06

suite à une demande en perso, je place ici une mise à jour qui intègre les fonctions avec un nombre variable d'opérande.

Comme exemple, j'ai crée la fonction "somme" qui calcul la somme des opérandes.
somme(a;b;c)=a+b+c
somme(1;2;3;4;5;6)=1+2+3+4+5+6
somme(x)=x

Par ailleurs, j'ai placé un try...except pour l'erreur du x^x. Ceci n'était pas un bug de mon code mais un simple problème de calcul en virgule flottante sur des valeurs trop grandes...

Enfin, juste une petite précision.
en perso, on m'a donné un petit bug.
"e=10" donne une erreur du au fait que la lettre E correspond à la notation scientifique d'un réel.
E est remplacé par *10^. donc dans e=10, il y a une confusion entre une variable et un opérateur.

Barbichette

Commentaire de raffour le 19/04/2008 21:01:20

Quand on est très fort, on est pompé
j'ai fait une transcription en action script (flash) d'une partie de ton code
Etant un delphi-user confirmé et un action-scripteur néophyte, ça m' a servi de base d'apprentissage d'action-script
je l'ai déposé dans la rubrique Flash de ce site (calculatrice expression mathématique
Désolé d'en avoir enlevé des bouts qui ne me servaient à rien (constantes, E, ..)
Merci pour ce source
je vais d'ailleurs voir les corrections que tu as apportés (en action script, il y a un garbage collector, donc je ne me suis pas trop soucié de libérer les objets)

Commentaire de barbichette le 23/04/2008 13:31:40

Yvessimon :
Exact, il y a une division par zéro quand x=0
Correction à faire dans Eval_exp pour le cas OpExposant

OpExposant :
if (frac(value[0])<>0) and (value[1]<0) then LastExprError:=101
else
if (value[0]<0) and (value[1]=0) then LastExprError:=100
else
if (value[0]=0) then Fresultat.Add(niveau(1,TypeValue))
else Fresultat.Add(niveau(power(Value[1],value[0]),TypeValue));

Comme ça il y a un test de division par zéro.

Dans tous les cas, il est préférable d'utiliser l'évaluation dans un Try...Except...End.
comme ça, on récupère toutes les exceptions de calculs en virgules flottantes.