MATH FOR DELPHI ET MATH IN DELPHI: UNE BIBLIOTHÈQUE, UN ÉDITEUR ET UN ANALYSEUR SYNTAXIQUE D'EXPRESSIONS MATHÉMATIQUES INTÉGRÉ À DELPHI

Commentaire de JnBiz le 24/05/2006 17:05:23

Ca m'a l'air cool tout ca.
C'est dommage, je viens d'effacer D7 pour passer à BDS 2006, mais bon, j'imagine qu'on doit quand même pouvoir l'installer sur les versions >D7.

Quand tu parles de génération automatique de code, de quoi s'agit il ?

Commentaire de f0xi le 28/05/2006 20:27:19 administrateur CS

mmm enorme boulot ....
j'en ai pas l'utilitée mais ça me semble vraiment pas mal et surtout complet.

je jette un oeuil au code ... ç'est trés interressant.

Commentaire de JnBiz le 29/05/2006 20:55:23

Je confirme c'est assez énorme comme boulot, tu as du y passer du temps.

Si tu as si peu de commentaires c'est peut-être parce que beaucoup n'ont pas réussi à l'installer (Moi j'y arrive toujours pas).

En tout cas ca m'interesse cette source.
Serait-il possible que tu la rende compatible avec d'autres versions ?
a+

Commentaire de JnBiz le 30/05/2006 20:13:26

J'ai réussi à installer les 2 premiers packages, mais lors de l'installation de OTAexpress, j'obtiens ceci:
[Pascal Hint] OTAKeyBoard.pas(45): H2365 Override method TOTACustomKeyBoard.DoUnRegister should match case of ancestor TNotifierComponent.DoUnregister
[Pascal Error] OTABufferOptions.pas(79): E2003 Undeclared identifier: 'GetHighlightCurrentLine'
[Pascal Error] OTABufferOptions.pas(79): E2003 Undeclared identifier: 'GetShowLineBreaks'
[Pascal Error] OTABufferOptions.pas(79): E2003 Undeclared identifier: 'SetHighlightCurrentLine'
[Pascal Error] OTABufferOptions.pas(79): E2003 Undeclared identifier: 'SetShowLineBreaks'
[Pascal Fatal Error] OTAExpress_D7.dpk(48): F2063 Could not compile used unit 'OTABufferOptions.pas'

Commentaire de yvessimon le 02/08/2006 13:44:03

Bonjour,

Après plusieurs essais d'extraction je n'arrive a avoir le programme même en modifiant zip par rar.

Quelle méthode utiliser ou sur quel système ?

Salutations

Commentaire de yvessimon le 03/08/2006 08:47:12

Merci

L'extraction se fait normalement

Salutations

Commentaire de Forman le 31/10/2006 14:51:59

Bien sûr c'est possible. Le composant TMathNameSpace sert à cela: il suffit de rajoutter une TMathFunc dans sa propriété Funcs (qui est un descendant de TCollection).

Un TMathFunc a une propriété Name: le nom de la fonction et 5 événements:
-procedure OnCalcValue(Sender: TObject; const Params: array of TVariantProcObject; var Value: Variant);
cet événement est utilisé pour calculer la valeur retournée par la fonction. Par exemple si on veut faire une fonction Sum(x,y) qui renvoie le résultat de la somme de x et y il suffit de faire:
  Value:=Params[0].Execute+Params[1].Execute;

-procedure OnCheckParams(Sender: TObject; Params: array of TVariantProcObject; AdditionalVars: TStrings);
cet événement est utilisé pendant la compilation d'une expression pour vérifier que le nombre et la nature des paramètres passés à la fonction sont valides. Il suffit de déclencher une exception  (si possible avec un message explicite) dans le cas contraire, et le message sera affiché dans le TCompileErrorManager comme une erreur de compilation. Par défaut la propriété ParamCount sert à définir un nombre de paramètres fixes pour les fonctions qui ont toujours le même nombre de paramètres, et dans ce cas-là il n'est pas nécessaire de vérifier le nombre des paramètres, le système s'en charge tout seul.
Par exemple la fonction Cos:
ParamCount=1, pas besoin de définir OnCheckParams
Autre exemple la fonction Max(x1,x2,...,xn) avec un nombre de paramètres variable:
ParamCount=0, il suffit juste de vérifier dans OnCheckParams que High(Params)>-1 (c'est à dire que la fonction est appelée avec au moins un paramètre)

Le paramètre AdditionalVars est utilisé pour les variables formelles. Par exemple:
Sum(i,1,10,i^2) qui calcule la somme pour i variant de 1 à 10 de i²: on vérifie d'abord que le premier paramètre de la fonction Sum est une variable, et on l'ajoutte à AdditionalVars en tant que variable à portée locale à l'intérieur de l'appel de la fonction.


-procedure OnCustomCreateBox(Sender: TObject; Display: TMathDisplay; Params: array of TVariantProcObject; var Box: TBox);
Utilisé pour définir un affichage personalisé de la fonction dans les formules mathématiques. Si cet événement n'est pas défini, la fonction est simplement notée f(...)
Par exemple la fonction Sum a un affichage personalisé (avec le symbole sigma).

-procedure OnForceSupPriority(Sender: TObject; SupObject: TVariantProcObject; Params: array of TVariantProcObject; var Force: Boolean);
Utilisé pour définir des priorités opératoires pour l'attribution de parenthèses. Par défaut, aucune parenthèse n'est ajouttée autour de l'appel de fonction, mais certaines fonctions personalisées (comme Sum) en ont besoin.

-procedure OnJump(Sender: TObject);
Cet événement est appelé lorsque l'utilisateur a cliqué sur le nom de la fonction dans l'éditeur. Cela sert à afficher un fichier d'aide par exemple.

Commentaire de tybman le 31/10/2006 18:09:38

Peux tu réaliser un exemple de "parsage" pour fonction de deux variable si c'est pas trop te demander
Merci de ta réponse

Commentaire de pascal555 le 18/12/2007 23:43:54

Formidable travail sincérement !
Mais je n'arrive pas à trouver la fonction simple qui permet d'envoyer les opérations en récupérant le résultat.
exemple : result=CALCUL(5+1);
Si tu peux m'aider, tu serais génial.
Mais tu l'ai déjà.

Commentaire de Forman le 26/12/2007 23:24:44

@Pascal555: désolé j'ai manqué ta question. Je n'ai pas écrit les composants pour faire directement ce que tu dis: en effet, pourquoi passer par l'évaluation d'une chaine de caractères alors qu'il suffit de taper directement la formule dans le code? L'idée était de laisser l'utilisateur entrer lui-même la formule (en particulier pour avoir accès aux erreurs de syntaxe dans le source). Ainsi il suffit d'avoir disposé (sur une fiche par exemple) un TMathFormula (muni éventuellement d'un TMathNameSpace) et lorsque l'utilisateur clique dessus la formule est changée (avec ce qu'il a tapé, et la garantie que la formule est syntaxiquement valide). Ensuite, il suffit d'appeler la méthode Execute du TMathFormula pour avoir le résultat (sous forme d'un variant).

Il est quand même possible de parser et exécuter une chaine de caractères contenant une formule ainsi:

function EvalString(s:string):Variant; {À la place de Variant on peut mettre Integer ou Double par exemple}
var
  m:TMathExecuter;
  f:TVariantProcObject;
begin
  GCurrentNameSpace:=MathNameSpace1; {Pas obligatoire, un TMathNameSpace est utilisé ici pour pouvoir utiliser éventuellement les fonctions usuelles et des variables/fonctions supplémentaires. Sinon, faire GCurrentNameSpace:=nil;}
  try
    try
      m:=TMathExecuter.Create(s); {Ici la chaine de caractères de l'expression mathématique est utilisée}
      f:=m.Execute(nil);
      try
        Result:=f.Execute;
      finally
        f.Destroy;
      end;
    finally
      m.Destroy;
    end;
  finally
    GCurrentNameSpace:=nil;
  end;
end;

L'objet f qui est utilisé dans cette fonction est une formule compilée. Puisqu'on ne l'utilise qu'une fois, on le détruit aussitôt après, mais il est possible de le garder en mémoire et de l'utiliser plusieurs fois: ainsi on pourrait mettre comme chaine de caractère une fonction qui dépend d'une variable (exemple: 'cos(x)+x^3+2*x^2+5') à condition d'avoir défini la variable x dans le TMathNameSpace utilisé, dans ce cas il suffira d'attribuer une valeur à x (dans le TMathNameSpace) et losqu'on fera f.Execute, la valeur de x sera automatiquement substituée.