|
Apprendre Maple Site dédié au logiciel de calcul formel Maple
|
Voir le sujet précédent :: Voir le sujet suivant |
Auteur |
Message |
Guimzo
Inscrit le: 02 Juin 2012 Messages: 209
|
Posté le: 04 Oct 2014 10:23 Sujet du message: Résolution systéme d'inéquations & d'équations à 2 incon |
|
|
Bonjour ALS,
S'il vous plaît pourriez-vous m'aider à corriger cette petite programmation.
En fait il faudrait que Maple renvoie les solutions ENTIÈRES d'un système d'inéquations et d'équations.
Il y à 2 inéquations et une équation.
Inéquation 1 : x+y >7
Inéquation 2 : x-y < 4
Équation : x * y = 15
Il faudrait donc ces 3 conditions, et que Maple renvoie les solutions entières.
J'ai déjà fait ceci, mais j'arrive pas à demander les solutions entières :
=======================================
restart;
solve({x+y > 7, y*x = 15, x-y < 4}, {x, y});
======================================= |
|
Revenir en haut de page |
|
|
ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
Posté le: 04 Oct 2014 11:25 Sujet du message: |
|
|
Bonjour,
Comme la fonction isolve (résolution en entiers) n'accepte que des équations, et que solve ne peut pas sortir les solutions entières d'inéquations, je procède en 2 temps:
- résolution en entiers de l'équation y*x = 15
- ensuite, je parcours les solutions entières obtenues pour déterminer celles qui vérifient x+y > 7 et x-y < 4.
- j'obtiens dans sol 3 couples solutions.
Code: |
> restart;
> s:=isolve(y*x = 15);
s := {x = -15, y = -1}, {x = -5, y = -3}, {x = -3, y = -5},
{x = -1, y = -15}, {x = 1, y = 15}, {x = 3, y = 5},
{x = 5, y = 3}, {x = 15, y = 1}
> sol:=NULL:
> for k to nops([s]) do
> assign(op(s[k])):
> # on affecte à x et y les valeurs -15, -1 puis -5,-3, etc... jusqu'à 15,1
> if x+y > 7 and x-y < 4 then sol:=sol,[x,y] fi:
> x:='x': y:='y': # on désaffecte x et y
> od:
> sol:={sol}; # les 3 couples [x,y] solutions
sol := {[1, 15], [3, 5], [5, 3]}
|
A plus tard. |
|
Revenir en haut de page |
|
|
Guimzo
Inscrit le: 02 Juin 2012 Messages: 209
|
Posté le: 04 Oct 2014 14:17 Sujet du message: |
|
|
Bonjour ALS,
Merci pour votre disponibilité. C'est 100% opérationnel, vous êtes qqn de génial : )
Voici ce que j'ai rentré dans Maple:
=========================================
restart;
Digits := 155;
p := 15;
w := 2*sqrt(p);
z := 3*sqrt(p)/sqrt(2);
w1 := evalf(w);
z1 := evalf(z);
s := isolve(y*x = p);
sol := NULL;
for k to nops([s]) do assign(op(s[k]));
if `and`(x+y > w1, x+y < z1) then sol := sol, [x, y] end if;
x := 'x'; y := 'y' end do;
sol := {sol};
========================================
Par contre, je n'sais pas si Maple pourrait d'abord résoudre le système d'inéquations et ensuite avec ces résultats, résoudre l'équation...?? |
|
Revenir en haut de page |
|
|
ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
Posté le: 05 Oct 2014 11:40 Sujet du message: |
|
|
Salut,
Difficile dans cet ordre, car la réponse fournie par Maple pour le système s d'inéquations est aussi sous forme d'inéquations.
Code: |
> s:=solve({x+y > 7,x-y< 4});
s := {3/2 < y, x < y + 4, 7 - y < x}
|
|
|
Revenir en haut de page |
|
|
Guimzo
Inscrit le: 02 Juin 2012 Messages: 209
|
Posté le: 07 Oct 2014 22:26 Sujet du message: |
|
|
Bjr ALS,
Merci beaucoup pour tout
Bonne soirée et certainement à bientôt : ) |
|
Revenir en haut de page |
|
|
|
|
Vous ne pouvez pas poster de nouveaux sujets dans ce forum Vous ne pouvez pas répondre aux sujets dans ce forum Vous ne pouvez pas éditer vos messages dans ce forum Vous ne pouvez pas supprimer vos messages dans ce forum Vous ne pouvez pas voter dans les sondages de ce forum
|
Développé par phpBB © 2001, 2006 phpBB Group
Traduction par : phpBB-fr.com
Apprendre Maple - ©
- Alain Le Stang - Navigation optimisée pour une résolution 1024 x 768.
|