Evaluer une expression algébrique contenue dans un string

Ce code est un analyseur/resolveur d'expressions algébriques,incorporé dans un composant OCX


Ce source est intéressant car il montre comment font les compilateurs pour évaluer des expressions algébriques

On fourni au composant une chaîne de caractères, celui-ci l'analyse en vue de la transformer en notation polonaise inversée dans fonction PostFixIt.

Cette partie fait appel massivement à la récurrence (Une fonction appelle un fonction qui elle même , a un moment ou un autre va appeler la première).

Ensuite cette chaîne est exécutée à l'aide d'une pile LIFO (Last In/First Out) dans la fonction DoCalcule

Le programme est capable d'analyser,un niveau de parenthèses quelconque

• les quatre opérations de base , Puissance

les fonctions :

• ABS(X) 'valeur absolue
• AR0(X) / RD0(X) 'arrondi à l'entier
• AR1(X) / RD1(X) 'arrondi à une décimale
• AR2(X) / RD2(X) 'arrondi à deux décimales
• AR3(X) / RD3(X) 'arrondi à trois décimales
• AR4(X) / RD4(X) 'arrondi à quatre décimales
• ATN(X) 'ArcTangente
• COS(X) 'Cosinus
• EXP(X) 'Exponentielle


• FIX(X) 'tronquage de la partie entière
• INT(X) 'Partie entière
• LOG(X) 'Logarithme
• SIN(X) 'sinus
• TAN(X) 'tangente

l'évaluation d'expressions booléennes :

• NOT expression 'Négation
• OR / OU 'Or
• AND / ET 'And


• > 'Supérieur strictement
• >= / => 'Supérieur ou Egal
• = 'égal
• <= / =< 'Inferieur ou egal
• < 'inferieur strictement

1
2
3
4
Public Function Log10(X)
   Log10 = Log(X) / Log(10#)
End Function