Discussion :

[SAMHSE]

Bonjour,

Je suis un peu bloqué, j'ai une variable $fonction qui contient l'expression qu'une équation et une seconde fonction $x qui contient une valeur désirée pour x.
J'ai pu remplacer les "x" de la variable $fonction par la valeur de x de la variable $x.
J'aurais besoin à présent d'obtenir le calcul mathématique de l'expression contenu dans la variable $fonction.

Voici un exemple de programme:

Code :

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

1
2
3
4
5
6
7
8
print "Donnez la fonction f(x)\n";         
my $fonction = <>;
chomp $fonction;
print "Donnez une valeur pour x \n";
my $x = <>;
chomp $x;
$fonction =~ s/x/$x/eg;
print "Le résultat de la fonction pour x=$s est $fonction";

Ainsi quelque soit la fonction f(x) entrée dans la variable $fonction elle serait résolue pour x=$x et sa valeur retournée.

Par exemple, on entre comme valeur pour $fonction: 2*x*x+3*x-2
donc f(x) = 2x²+3x-2

Et la valeur pour $x: 4.

On remplace "x" par sa valeur et on obtient comme valeur pour $fonction: 2*4*4+3*4-2

Il faudrait à présent que je puisse extraire, non pas "2*4*4+3*4-2" mais "42".

J'espère avoir été suffisamment clair dans mes explications.

[magicshark]

regarde eval()

de plus il y a une coquille dans ton code quand tu fais ton dernier print, tu mets x=$s au lieu de x=$x je pense.

voilà le résultat que j'obtient :

Code :

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

1
2
3
4
5
Donnez la fonction f(x)
2*x*x+3*x-2
Donnez une valeur pour x 
4
Le résultat de la fonction pour x=4 est 42

Cependant attention à comment tu entres ta formule 2x²+3x-2 ne fonctionnera pas

[magicshark]

penses à mettre le sujet à Résolu

[Lolo78]

Bonjour SAMHSE,

dès que j'ai vu ton message, j'ai pensé à la fonction Perl interne eval, qui est vraiment destinée à ce genre de problème. Celle-ci ayant été déjà proposée par magicshark, je me suis tout de même demandé s'il n'y avait pas moyen de faire autrement avec des références et des bidouilles, mais je n'ai pas trouvé de solution simple. J'ai réussi (du moins avec la fonction en question, pas sûr que ça marche avec une plus complexe)), mais avec une solution consistant finalement à parser le contenu de la variable $fonction, bien plus complexe qu'un simple eval. Bref, la solution proposée par magicshark est à mon humble avis la meilleure, et de loin.

[Philou67430]

Je ne sais pas ce que cela vaut : Math::Expression::Evaluator

[SAMHSE]

Super! Et désolé pour le retard de réponse, c'est exactement ça que je cherchais.