Discussion :

[Pades75]

Suis débutant, donc ne râlez pas...
J'aimerais créer une fonction qui s'appelle root(f(x,y,...),x) et qui va me chercher la valeur de x qui résout f(x)=0.
Mon problème: je veux donc passer une fonction (f(x)), en argument. Dans le code appelant j'aurais par exemple f(x)=sin(x), ou f(x)=x^2, ou f(x)=x^2+y^2 ou je ne sais quoi...
Comment gérer ce truc-là ?

Merci !

[Pedro]

Salut
Il faut que tu fasses un interpréteur, c'est à dire une routine qui va décortiquer la fonction et l'utiliser. Il me semble qu'il existe un compo comme ça dans la JVCL

[jenesuispasunrobot]

je n'ai pas delphi sous les yeux mais il n'existe pas un type genre TProc (je suis pas sur pour le nom) qui permette ceci ?

[TicTacToe]

+1 Pedro (décidément )

A la fac, je suis tombé sur le même cas que toi...

et du coup j'au dév. un interpréteur pour pouvoir écrire sa fonction (avec constantes PI, fonctions trigo, x var. etc...) exactement comme si on l'écrivait sur papier (interprete correctement 'sinxcosx' par exemple).

Il doit y avoir des compos qui font ca, sinon si tu trouves pas je peux éventuellement te packager tout ca... (écrit à l'origine en TP7! mais je l'utilise toujours aujourd'hui pour le boulot et dans tout mes progs...) -> MP

[LadyWasky]

Ce qui nous serais utile pour t'aider c'est de savoir sous quelle forme se présente ta fonction.

Est ce que c'eest une chaîne de caractères rentrée par l'utilisateur ?
Auquel cas il te faut un composant d'évaluation d'expressions mathématiques.

Tu en trouveras sur le site d'efg computer lab, ici :
http://www.efg2.com/Lab/Library/Delp...ns/Parsers.htm

Ou bien ta fonction est une functionDelphi, auquel cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
//Définition du type fonction
type 
 TFonction=function(x:real):real;
...
//définition des fonctions
function f1(x:real):real;
begin
  result:=sin(x);
end;
 
function f2(x:real):real;
begin
  result:=x*x-2;
end;
 
function root(f:TFonction;BorneInf,BorneSup,Delta:real):real;
const maxit=30;
var dx,y,yl,swap,xl,rts: real;
    j: integer;
    trouve:boolean;
begin
   trouve:=false;
   yl := f(BorneInf);
   y := f(BorneSup);
   if (abs(yl)<abs(y)) then
   begin
      rts:=BorneInf;
      xl:=BorneSup;
      swap:=yl;
      yl:=y;
      y:=swap
   end
   else
   begin
      xl :=BorneInf;
      rts:=BorneSup;
   end;
   j:=1;
   while ((j<=maxit) and (not trouve)) do
   begin
      dx:=(xl-rts)*y/(y-yl);
      xl:=rts;
      yl:=y;
      rts:=rts+dx;
      y:=f(rts);
      trouve:=((abs(dx)<Delta) OR (y=0.0));
      inc(j);
   end;
   if not trouve
   then ShowMessage('Nombre maximum d''iterations atteint : racine non trouvée');
   result:=rts;
end;
 
//utilisation
procedure TForm1.Button1Click(Sender: TObject);
var y0:real;
begin
  y0:=root(f1,-1,1,1e-3);
  ShowMessage(FloatToStr(y0));
 
  y0:=root(f2,1,2,1e-3);
  ShowMessage(FloatToStr(y0));
end;
...