Elimination de Gauss Jordan en Maple

[invite8803944e]

Bonjour à tous,
J'essaie actuellement d'écrire un algorithme Maple qui prenant en entrée une matrice M, permet d'en sortir la matrice réduite de Gauss Jordan (ce qui est possible avec la fonction GaussJord).
Cependant, comme je suis novice en Maple, je bloque au niveau de l'écriture d'une procédure qui me permettrai d'échanger les lignes i dont le terme (i,1) est nul pour les placer en dernières positions.
Si quelqu'un (a compris ma requête) pouvait m'aider, cela me simplifierait le travail ^^.
Merci
-----

[phryte]

Bonjour.
Pour échanger deux lignes :

restart:with(linalg):
> m:=linalg[matrix](3,3,[1,2,3,0,4,5,7,8,9]);
> swaprow(m,2,3);