programmation sur maple

[invited028b400]

Bonsoir

J'ai un programme à écrire en maple, mais je bloque sur une partie, est ce que quelqu'un pourrait m'aider?

Dans ce cas là, je vous expliquerai mon problème.

Merci bcp et bonne soirée
-----

[invited028b400]

Bonjour,

svp c'est assez urgent, et le programme n'est pas bien grand, maxi 10 lignes, mais je ne connais pas trop ce logiciel et je galère bcp.

Merci

[JPL]

Et si tu donnais une idée de ce que tu as tenté, tu aurais peut-être une réponse !

[invited028b400]

Voilà mon programme, il faut prendre la matrice Hk, il faut que le quotient de la 1ère colonne soit égal à celui de la 2ème colonne, et à celui de la 3ème, puis que le reste de la division euclidienne de chaque colonne soit positif, alors on pose ak qui est égal au quotient et Hk+1=G.Hk ou G est donné, ensuite on continue en faisant k=k+1, et on reprend depuis le début, si ca ne vérifie pas ces conditions alors on fait Hk=Hk.H

>restart;
>with (LinearAlgebra);
> M:=Matrix([[1, 5, 10], [2, 1, 5], [1, 2, 1]]);
> H:= Transpose (M);
> List:=NULL;
List :=
> k:=0;
k := 0
> Hk:=Matrix([[5, 1, 2], [10, 5, 1]]);
> x1:=Hk[1,1];
> x2:=Hk[1,2];
> x3:=Hk[1,3];
> x4:=Hk[2,1];
> x5:=Hk[2,2];
> x6:=Hk[2,3];
x1 := 5
x2 := 1
x3 := 2
x4 := 10
x5 := 5
x6 := 1
> while (k<301) do
> if ((iquo(x1,x4)=iquo(x2,x5)) and (iquo(x2,x5)=iquo(x3, x6)) and (irem(x1,x4)>0) and (irem(x2,x5)>0) and (irem(x3,x6)>0)) then a[k]:= iquo(x1,x4);
> List:=List,a[k];
> G:=Matrix([[0,1],[1,-a[k]]]);
> Hk:=multiply(G,Hk);
> k:=k+1;
> else Hk:=multiply (Hk,H);
> fi ;
> od;
> print(List);
Error, too many levels of recursion
List




Voilà le problème que je rencontre, et je ne sais pas comment y remédier !

Merci

[A voir en vidéo sur Futura]

[invitebda71f50]

Bonjour
dans la partie else, ajoute déjà ceci pour débloquer la boucle qui risque d'être sans fin:

k:=k+1;
ou, mieux, sors-le du if/fi
(ceci dit, j'ai rien compris au reste.. )

[invited028b400]

Bonsoir,

Je vous remercie, j'ai essaié, mais là je rencontre ce problème :
Error, cannot determine if this expression is true or false: k < 301

Et là, d'ou pourrait provenir l'erreur ?

Merci