COMPILATEUR D'EXPRESSIONS MATHEMATIQUES

Commentaire de Delphiprog le 05/01/2003 23:31:44 administrateur CS

Pas mal !
Pour faciliter la lecture du code, j'aurais employé un type énuméré pour les différents 'Identifiers' plutôt que de déclarer un tableau de constantes de 0..12.
Genre :
TIdentifiers = (IdE, IdPi, IdSin, IdCos, IdTan, IdArcsin, IdArccos, IdArctan, IdExp, IdLn, IdLog, IdSqrt, IdInt);
et après :
Const
  Identifiers : array[TIdentifiers] of string =(....)
Puis dans la procédure Factor, au lieu de :
for i := 0 to High(Identifiers) do
                     if Identifiers[i] = S then
                     begin
                       case i of
                         0 : Result := Exp(1);
                         1 : Result := Pi;
j'inscrirais :
for i := Ide to IdInt do
   if Identifiers[Ord(I)] = S then
   begin
     case i of
       IdE : Result := Exp(1);
       IdPi : Result := Pi;
etc.
Mais bon, c'est génial comme çà.
Félicitations.

Commentaire de ZED le 06/01/2003 12:16:36

Merci,
Pour les types énumérés, j'ai lu qq part que ça prends plus de memoire et de cpu qu'il n'en faut pour determiner une cardinalité.. donc j'ai opté pour ce qui est moins pénible pour l'execution.
Pour le TIdentifier... je crois qu'il faut une autre function pour reconnaitre chaque identifier... ce qui est deja fait par une boucle for. je pense que c'est optimisé comme ça.

Mais bon, merci poure le conseil.

@+

Commentaire de ZED le 06/01/2003 23:18:06

Est ce vrai que Delphi est plus rapide dans les traitements des integer que ceux des Bytes?

Une autre question que je me pose.

@+

Commentaire de ZED le 10/01/2003 13:24:03

'légibilité' ? je crois entendre Lisibilité...
C'est vrai que le TIdentifier serait plus lisible. Mais ce n'est pas un drame. le programme fonctionne correctement (jqa maintement lol).

Si quelqu'un est tenté (pas moi), il pourrait en faire un programme de maths qui étudie les fonctions, représentation graphique, integrale, système d'équations... ect.

Bon coding...
@+

Commentaire de ZED le 06/02/2003 23:30:11

Hum,
Effectivement!!! Merci d'avoir remarqué :)
C'est corrigé.

Commentaire de ZED le 23/02/2003 02:14:21

Par exemple:

var
  R, Valeur: Real;

begin
  ...
  X := 5.125;
  R := Eval('5x+2/(2sin(x - pi/5))-9', 'x', Valeur);
  ...
end;

ici le parser remplace l'identificateur 'X' par valeur.

Commentaire de ZED le 23/03/2003 05:20:51

C'est réglé mtn

Commentaire de ZED le 07/04/2003 03:23:52

A votre service :))

Commentaire de ZED le 18/05/2003 01:16:00

Monsieur elchevive,
Il ç'est pas possible ce que vous me dites là... "En fait, seuls +,-,*,/,²,sin,cos,tan,e et pi qui fonctionnent pico bello dans le traceur, mais pour le reste...."
Mon parser fonctionne tres bien, il faut juste bien s'en servir...

Il faut utiliser soit Evaluate() toute seule, soit Eval avec un try except.

for i := 0 to Length(tab) - 1 do
  try
    tab[i,2] := Eval(fEnter.fx.text,'x', cpt/10);
  except
    tab[i,2] := 0;
  end;

sinon il faut voir la démo.

Commentaire de grandvizir le 07/03/2004 18:53:10

Moi, j'ai regardé et c'est bien fait. Surtout le ^ montrant où est l'erreur La présentation m'a trop fait penser à Derive de Ti. De plus j'ai quelques idées:

==> gérer le caractère "³" pour le cube.

==> faire une variable REP ou ANS pour récupérer le dernier résultat, voir ANS(n) pour récupérer le nnième dernier résultat.

==> la sélection qui met dans le presse-papier n'est pas évident. Le truc pas mal: Memo.onMouseUp:=<Edit.SelText:=Memo.SelText>. C'est copié direct dans l'edit sans passer par le presse-papier, parce que si j'ai déjà un truc dedans, je vais pas être content.

==> pourquoi ne pas utiliser EXTENDED au lieu de DOUBLE. C'est bien plus grand.

==> Pourquoi la virgule n'est pas supportée ?

==> faire une formule (genre DEFINE x AS 3,45) définissant une variable X dans un TStringList et utilisable dans un calcul suivant, car l'interpréteur reconnaitra cette variable. Parce que si j'ai que l'exe, alors je peux pas toucher au source pour le faire.

==> WordWrap=false pour le Memo

==> améliorer la sortie. J'avais chargé l'exe, et détruit le répertoire juste après. Ce qui fait que l'exe ne se ferme plus à cause de <"Ne peut pas créer History.txt">. Remplacer par:
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  try
    StrList.SaveToFile(HistoryFile);
  except
  end;
end;