[Mathematica] Boucle et Tracé de points

[invite46b3becc]

Bonjour tout le monde.
Je suis actuellement en stage de Master 1 et j'utilise le logiciel Mathematica pour résoudre un problème posé par mon maître de stage. Etant novice sur ce logiciel, j'ai néanmoins réussi à faire une grande partie. Mais j'arrive à un bloquage. Je m'explique.

Le but du programme est de modéliser un domaine dans lequel les valeurs propres d'un polynôme de degré 4 sont réelles.
Pour ce qui est de trouver ces valeurs, il n'y a pas de problème. En revanche, placer ces points sur un graphique devient plus complexe. En effet, je n'ai pour l'instant réussi qu'à placer ces points que sur des graphiques différents, et non sur un même. J'ai essayé la commande Show, mais elle a besoin de tous les points calculés par la boucle pour tout afficher.

Le programme est en pièce jointe.

Et ce que je voudrais faire, c'est afficher tous les points [k,gamma] sur un unique graphique. Parce que calculer un certains nombres de points et les placer "à la main" sur un graphique, c'est fastidieux.
Je vous remercie par avance de vos réponses.
-----

[invitec317278e]

Ce que tu veux faire, c'est modifier un graph au fur et à mesure que ta boucle avance, je ne pense pas que ce soit possible.
Il va falloir, pour moi, créer une liste l initialement vide, puis, dans ton If, pour le then, écrire l=Append[l,{k,gamma}]
puis, après être sorti de toutes les boucles, finalement, faire ton ListPlot...

ce n'est pas spécialement plus lourd que ce que tu voulais faire...

[invite46b3becc]

Je te remercie de ta réponse, mais j'aurais besoin de quelques précisions.
COmment tu créé une liste vide? Car j'avais déjà essayé, mais quand je voulais remplir cette liste, cela me mettait un message disant que le contenu de cette liste était protégée. De plus, je ne connais pas la longueur de cette liste. Cela dépend des conditions sur la boucle.

[invitec317278e]

Re,

tu écris l={} avant tes boucles, ça créé la liste l, qui ne contient aucun élément, et normalement, quand on fait ensuite l=Append[l,{0,1}], par exemple, ça renvoie bien {{0,1}}.
Pour la longueur, peu importe, tu peux ajouter des éléments à une liste autant de fois que tu veux.

[A voir en vidéo sur Futura]

[invite46b3becc]

Et bien, je te dois une fière chandelle. Ta solution marche parfaitement. Je vais pouvoir augmenter le nombre d'itération sans me casser la tête à retapper tous les points à chaque fois. Encore merci, et n'oublie pas...

La Force est avec toi, à tout jamais.

[invite450afa9d]

bonjour
je cherche a resoudre un polynome de 5 eme degre par mathematica .j'arrive a trouver mes recines mais pour faire le plot de mon polynome ca beuggg
merci pour votre aide