Apprendre Maple

[slave97]

Bonjour,





Je souhaite monter une séquence qui me renvoie l'ensemble de toutes les opérations possibles à partir d'un certain nombre de chiffres donné et de signes d'opération ( du style 1 ; 3 ; 4 ; + ; - )


Exemple :

Prenons l'ensemble des chiffres ( 1 ; 3 ; 4 ) et l'ensemble des signes ( + et - )

En prenant uniquement 2 chiffres par opération on obtient l'ensemble des opérations possibles strictement positifs :

(1+3=4) ; (1+4=5) ; (3+4=7) ; (3-1=2) ; (4-3=1) ; (4-1=3)

Donc on voit qu'à partir des chiffres ( 1 ; 3 ; 4 ) et des 2 signes d'opérations ( + et - ) et en prenant maximum 2 chiffres par opérations il y à que 6 opérations possibles dont le résultat est strictement positif.



Je voudrais donc faire une séquence avec l'ensemble de ces chiffres :
( 1 ; 2 ; 3 ; 5; 7; sqrt2 ; sqrt3 ; sqrt5 ; sqrt7 ) et les signes ( + ; - ; * ; / )
en prenant chaque fois 3 chiffres par opérations et donc utilisant 2 signes
Exemple:

( 1+sqrt5) /2 On a donc 3 chiffres ( 1 ; sqrt5 ; 2 ) et 2 signes ( + ; / )


Merci.

[ALS]

Bonjour, voici la solution que je vous propose:

[slave97]

Bonjour ALS : )




Merci est si peu pour toute votre gentillesse....!

Des que j'essaye le programme je vous tiens au courant.
Merci encore pour votre précieuse aide.


Cordiales salutations.

[slave97]

Re
Bonjour ALS,




Je viens d'essayer le programme mais il me renvoie cette erreur :

"" Error, unexpected number "" en montrant les "1/2" qui sont vraisemblablement les puissances des chiffres.


J'ai essayé en changeant les "1/2" par "sqrt(x)" et là maple me renvoie l'erreur :

"" Error, missing operator or `;` "" en pointant sur "" ops := [+, -, *, /]
""


P.S. : ( Est-il possible d'avoir en même temps une valeur approchée des résultats ...?? )


Merci.

[ALS]

Bonjour,
Quand vous recopiez mon code à partir de ma réponse sur ce forum, vous devez bien sur ne recopier que les lignes précédées du > (zone input) et ensuite enlever les > en trop dans le fichier Maple.

D'autre part, avez-vous bien mis les accents entre chaque opérateur?

ops:=[`+`,`-`,`*`,`/`];

Pour les valeurs approchées, on utilise evalf sur chaque résultat:
res:=res,[n1,k,n2,evalf(v)]

[slave97]

Bonjour ALS,



Merci le code marche à merveille ..! : )


Alors par contre au lieu de prendre 2 chiffres par opérations je voudrais mettre 3 chiffres et donc 2 signes d'opérations....?? ( le couple ++ ; +- ; +/ ; +* ; -+ ; -- ; -/ ; -* ; *+ ; *- ; */ ; ** ; /+ ; /- ; /* ; // )

Juste un Exemple :

( 1 ; 5 ; 7 ; - ; + )

Il y à bien 3 chiffres et 2 signes d'opérations


Je vous remercie d'avance,
Bien à vous ,
Salutations.

[ALS]

Bonjour,

C'est le même principe: vous rajoutez une boucle :
for n3 in nb do
et une boucle :
for l in ops do
v:=l(k(n1,n2),n3)

Et voilà!!

Je vous laisse écrire la modification.

[slave97]

Bonjour ALS,



Merci pour votre aide
je suis vraiment nul je suis désolé

Alors voilà les modif's que j'ai fait mais apparement il y à une erreur car Mapple me renvoie ce message : " Error, reserved word `fi` unexpected ""



nb:=[1,2,3,5,7,sqrt(2),sqrt(3),sqrt(5),sqrt(7)];
> ops:=[`+`,`-`,`*`,`/`];
>
> res:=NULL:
> for n1 in nb do
> for n2 in nb do
> for n3 in nb do
> if n1<>n2 then
> for k in ops do
> for l in ops do
> v:=l(k(n1,n2),n3) :
> if evalf(v>0) then
> res:=res,[n1,k,n2,n3,evalf(v)]
> end if
> od;
> fi
> od
> od:
> [res];

[ALS]

Bonjour,
Il faut mettre autant de od que de do, vous en aviez oublié.
Indenter le programme, c'est à dire effectuer un retrait de un ou deux caractères lorsque l'on ouvre une nouvelle boucle, permet de s'en apercevoir.